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SIRU DEVELOPMENT FINAL REPORT 
ABSTRACT 

This report presents a complete description of the development and initial 
evaluation of the Strapdown Inertial Reference Unit (SIRU) system sponsored by the 
NASA Johnson Space Center under Contract NAS9-8242. 

The SIRU configuration is a modular inertial subsystem with hardware and 
software features that achieve fault tolerant operational capabilities. The SIRU 
redundant hardware design is formulated about a six gyro and six accelerometer 
instrument module package. The modules are mounted in this package so that their 
measurement input axes form a unique symmetrical pattern that corresponds to 
the array of perpendiculars to the faces of a regular dodecahedron. This six axes 
array provides redundant independent sensing and the symmetry enables the 
formulation of an optimal software redundant data processing structure with self- 
contained fault detection and isolation (FDI) capabilities. 

This report consists of four volumes. 

Volume I, System Development, documents the system mechanization with the 
analytic formulation of the FDI and processing structure; the hardware redundancy 
design and the individual modularity features; the computational structure and 
facilities; and the initial subsystem evaluation results. 

Volume II, Gyro Module, is devoted specifically to the Gyro Module, the inertial 
instrument and its digital strapdown torque- to- balance loop, the mechanical, thermal, 
and electronic design and function, test procedures and test equipment and 
performance results and analysis. 

Volume III, Software, documents the basic SIRU software coding system used 
in the DDP-516 computer. The documentation covers the instrument compensation 
software, reorganizational and FDI processing, and the inertial attitude and velocity 
algorithm routines as well as servicing, input/output, etc. software. 
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Volume IV, Accelerometer Module, is devoted specifically to the Accelerometer 
’Module, the inertial instrument and its digital strapdown torque-to- balance loop, 
the mechanical, thermal and electronic design and function and performance results 
and analysis, as it differs from the Gyro Module. 

In addition to this report, SIRU Utilization Report R-747, has been issued 
documenting analyses, software and evaluation activities in the application of advanced 
statistical FDI algorithms, calibration and alignment techniques to the SIRU system. 
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INTRODUCTION: 


The purpose of creating the SIRU operating system was to implement 
and verify operation of the algorithms shown in Figure 1 on an available 
laboratory computer (Honeywell DDP-516) at an update rate of 100 times/ 
sec. These algorithms can be divided into two sets, an accelerometer 
data processor and a gyro data processor. In the strapdown implementation 
it is important to process the accelerometer information into the inertial 
frame using the average attitude information over the AV accumulation 
period. 

The system begins to accumulate AV pulses from the torque to balance 
instrument loops after initialization. After 5 ms the system begins to 
accumulate A 6 pulses. Five ms later or 10 ms from initialization the 
accelerometer pulse counters give an interrupt and the accelerometer data 
processors perform the proper algorithms on the 10 ms of AV accumulation. 
Five ms later the 10 ms of A0 accumulation is processed to update attitude.The 
accelerometer and gyro algorithm processing loops are performed 
alternately every 5 ms thereafter resulting in the required staggering of 
these tasks. (This software has also been run at an update rate of 50 times/ 
second. Ref. SIRU Utilization Report R-747). 

Figure 1 shows what is done during either the accelerometer or gyro 
5 ms updates. On the accelerometer side we require the system to do the 
following tasks. 

TASKS 

Al) Read the 6 accelerometer counters. 

A2) Compensate accelerometers for average scale factor, bias and 
the misalignments of each accelerometer's input axis around 
their input and penduluous reference axes. 

2 

A3) Compensate accelerometers for errors due to Ru: and Ru> as 

a function of the accelerometers' positions relative to one 
another. 

A4) Accumulate corrected accelerometer body output for failure 
detection and isolation. 

A5) Perform failure detection and isolation resulting in a current 
failure status. 
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Table 

Encoder 
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FIGURE 1 SIRU DATA PROCESSING 















A6) Check parity equation for third fail. 

A7) Create least squares matrix (as a function of fail status) to 
transform the 6 compensated AV's into the X, Y, Z body frame. 

A8) Do the 6 to 3 matrix multiplication. 

A9) Unitize attitude quaternion prior to velocity algorithm proces- 
sing. 

A10) Do the velocity algorithm, i.e., use the current attitude quater- 
nion to generate the velocity transformation matrix and 
transform the incremental body velocity into the inertial frame. 

All) Accumulate AV inertial for output processing. 

On the gyro side we presently require the system to do the following tasks: 

Gl) Read the table angle encoder, the six gyros & interpolators. 

G2) Compensate the gyros for ±ASF, NBD, ADIA, ADOA, ADSRA, 
anisoelasticity, misalignments, anisoinertia, SRA cross-cou- 
pling and OA coupling. 

03) Accumulate the corrected gyro body output for failure detection 
and isolation. 

G4) Perform the failure detection and isolation processing resulting 
in a current failure status. 

G5) Check the parity equation for third fail. 

G6) Create the least squares matrix (as a function of failure status) 
to transform the six compensated A 0's into the X, Y, Z body 
frame. 

G7) Do the 6 to 3 matrix multiplication. 

G8) Compensate for earth rate. 

G9) Update the quaternion attitude. 

In the time remaining, output of the system's status is performed 
either on the teletype, the CRT display or on an incremental digistor tape 
for further analysis. The format is shown in the documentation of the 

output programs. The information outputted includes the quaternion of 

./ f - 

attitude, AVj accumulated over some interval, a squared error monitor 
and fail status for gyros and accelerometers, test-table angle encoder and 
time since initialization. 
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SYSTEM ORGANIZATION: 

The main program (MPRO) in turn calls all the subroutines to 
accomplish the tasks described in the introduction. These programs are 
documented in the following sections in the order listed below: 


Program 

MPRO 

ALPO 

SFPOUT 

SXOU 

SDGS 

(FTLIBY) 

READ 

ACOM 

GCOM 

DCMT 

DCO A 

ROMS 

PREX 

GARC 

GFIS 

ERDE 

CFSE 

PFIS 

GPRT 

PRTY 

PPEX 

GMIN 

GPMA 

EMIN 

MG63 

MV63 

SPUN 

VESP 

V ACU 

ERC6 

AA6S 


Task Page 


main program 

7 


20 


31 

Output 

36 


39 

Fortran library 


A1,G1 

43 

A2 

47 


52 

G2 

61 


65 

A3 

69 

A4 

78 

G3 

81 


87 

G4 

93 

A5 

99 


112 

G5 

115 


1.18 

A6 

123 

G6 

125 

A7 

128 


138 

G7 

140 

A8 

146 

A9 

149 

A10 

158 

All 

169 

G8 

171 

G9 

174 
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Preceeding the documentation of these programs is a load map showing 
the core location of each subroutine. 


5 



SYSTEM LOAD MAP 


LDRX 2 3665 1000 64 

* 

MR 


* 

PF I S 

04726 

GO 

C BGPMA 

KEYP 

05050 

MN 

MR 


ATTA 

05060 

1 RMPRU 

C BPPEX 

VACU 

05506 

MR 

MR 


SPUN 

05560 

C BREAD 

C BGPRT ! 

PARC 

06040 

MR 

| MR 


P ACC 

06166 

C BGF1S 

r. BPRTY 

ERDE 

06172 

MR 

MR 


SECA 

06524 

C BO COM 

C BUGS 


GARC 

07344 

MR 

MR 


GACC 

07524 

C. BERC6 

C BRI.1MS i 

OUTPUT 

07530 

MR 

LC 


DODSP 

07600 

C BEM1N 

M 


FPOUTC 

10340 

MR 

-START 

01000 

OUT 100 

10552 

C BGM] M 

SFllGH 

14370 

lOMUDE 

1 0604 

MR 

*NAMES 

17132 

X10U 

10636 

C BDCOA 

#comm 

2 3777 

XNDU 

10642 

MR 

*BASE 

00244 

XNOUA 

10646 

C BACOM 

L 1ST 

00001 

XOOCT 

1 0652 

MR 

RUPT 

01450 

CNOU 

10670 

C BDCMT 

ASCT 

01506 

CMUUA 

10675 

MR 

ICINIT 

01656 

codct 

1 07 50 

C B Mi V 6 3 

1NP1P 

01731 

C10U 

11004 

MR 

INGYRO 

01764 

DOPAGE 

11176 

C BMG63 

GFIS 

02070 

CRTOUT 

11476 

MR 

KEYG 

02225 

CRTOUA 

11504 

C BVESP 

GCOM 

02242 

SORTX 

11614 

MR 

ERGO 

02726 

F$AT 

11614 

C BPE1S 

EMIN 

03034 

ARG$ 

11676 

MR 

GMIN 

03100 

T1GU 

11747 

C BAA6S 

DC OA 

03144 

TNGUA 

11772 

MR 

AO A P 

03252 

TNOU 

11777 

C BVACU 

BOAP 

03254 

TOOCT 

12047 

MR 

COAP 

03256 

MATR 

12102 

C B S PUN 

DOAP 

03260 

GMAT 

12136 

MR 

EOAP 

03262 

PPRT 

12630 

C BPREX 

FOAP 

03264 

GPRT 

12712 

MR 

ACOM 

03274 

PR T Y 

12774 

C BFRDE 

DC M I 

03476 

OGSWRT 

13250 

MR 

DCMT 

03551 

DGSRO 

13311 

C RCFSE 

MP63 

03664 

ROMS 

14000 

MR 

MG6 3 

04012 

WX PR 

14333 

C BGARC 

VELA 

04206 

WYPR 

14334 

MR . 

F X X 

04654 

WZ PR 

14335 

C BALPO 

FXY 

04656 


23777 

MR 

FXZ 

04660 

LC 


C RFPOUT 

EYX 

04662 

OK 


MR 

FYY 

04664 

SAVE RMPRU 64 

C RXOIJ 

FYZ 

04666 

OK 


MR 

FZX 

04670 



C FTL1BY 

FZY 

04672 



1 

EZZ 

L 

046-74 - 

' 



1000 
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PROGRAM NAME 
SOURCE: MPRO 
BINARY: BMPRO 
STARTING LOCATION: '1000 
GENERAL DESCRIPTION: 

This is the main executive of the system operating program which 
calls the appropriate subroutines to accomplish the algorithms defined in 
the introduction and the definition of system tasks. It is divided into three 
sections of code. First is initialization and the enabling of interrupt. 
Next is a waiting loop (location LOOP) which checks to see if it is time for 
output and if so, calls the proper output routines. When this waiting loop 
is interrupted (every 5 milliseconds), the program sequence goes to the 
last section (location RUPT) which in turn decides whether its time to update 
the PIPA or gyro algorithms, goes to either PDO or GDO, saves the 
processing registers as they were at time of interrupt, calls the appropriate 
algorithms following PDO or GDO, restores the processing registers and 
returns to whatever was being processed at time of interrupt. 

The initialization section first calls DCMI (see documentation for 
program source name DCMT) to enable the gyro OA misalignment parame- 
ters to be taken from the base sector and saved elsewhere in core. It 
then zeroes out all locations in the base sector that don't contain compensation 
parameters (namely locations '260- '421, '430- '477, '574- '677 and '744- '777). 
It zeroes out the gyro and PIPA error accumulator residuals accessible 
through the indexed external addresses CCAG and CCAP (see programs 
with source names GARC and PREX). It zeroes out the 6 previous OA 
coupling offsets (AOAP-FOAP accessible in the program DCOA through 
the external address PAOA-PAOF). It zeroes the four erroneous interrupt 
counters (disk, ASR-33 teletype, miscellaneous and clock). It zeroes out 
the gyro and PIPA fail keys (KEYG and KEYP) in programs GFIS and PFIS). 
It zeroes WXPR, WYPR and WZPR (see program ROMS) and sets GACC 
and PACC toequal -6001 (used to wait 60 seconds in the error accumulator 
programs GARC and PREX). TCNT (the time counter for the output loop) 
is set to its maximum of '77777 so that an output will be done at t=0. It 
puts a round of '40000 in the low order residuals of the gyro pulse counts. 
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PIP A pulse counts, gyro x, y and z delta thetas, PIP A x, y and z delta Vs, 
the quaternion and the delta V inertial accumulators. The '40000 it stores 
in '460 is to set lamda of the quaternion equal to 1. It then generates the 
gyro and PIPA 6x3 matrices by calling GMIN and EMIN. It stores the 
address to go to when interrupted in '63 and calls ICINIT, which sets up 
the interrupt cycle (see documentation for program source name READ). 
Finally it does a JST (internal call) to GETM in order to set up the timing 
and MODE for whichever of three output modes is desired. 

The output waiting loop simply checks the time counter (TCNT) to 
see if it is greater than or equal to the time at which to output (CRIT). If 
TCNT is less than CRIT (i.e., it is not time to output) and if sense switches 
three and four are not reset and set respectively , the waiting loop will 
just continue to loop. The waiting loop continues to get interrupted so that 
the PIPA and gyro processing can be updated every five milliseconds. 

When enough updates have occurred and TCNT becomes greater than 
CRIT, the program jumps to OUT, where output is started. If sense switches 
three and four are set, the program will first initialize the quaternion to 
1,0, 0,0 (see documentation for AA6S). The program then continues at NOQZ 
where all the data to be output is saved in a 52 word buffer called QTMP 
as follows: 


sjc 

Note that TCNT is incremented by 1 after every gyro algorithm loop so 
it counts in hundredths of a second. CRIT is set up by GETM and depends 
on the output mode. 

>j( jj( 

To stop this program and return to DOS (the disk operating system) sense 
switch four is set while sense switch three is left reset. By setting sense 
switch three and then setting sense switch four, the quaternion will be 
initialized at the time the next output starts. 
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Location 


Contents 


QTMP -QTMP+7 
QTMP+8-QTMP+13 

QTMP+14-QTMP+1 5 

QTMP+16-QTMP+1 7 

QTMP+18-QTMP+19 

QTMP+20-QTMP+21 

QTMP+22-QTMP+23 

QTMP+24-QTMP+37 

QTMP+38-QTMP+51 


quaternion 

Sum of delta V 
inertial since the 
last output 

First and second gyro 
fail status 

First and second PIPA 
fail status 

Time elapsed since start 
of program 

Encoder angle of 
test table 

gyro and PIPA 
third fail indicators 

gyro squared errors 

PIPA squared errors 


The delta V accumulators and the time counter are then zeroed after 
which the proper output mode is gotten. Parts of QTMP are then rescaled 
so that the output routine can handle them. Finally, a call to OUTPUT is 
made with the addresses of QTMP and MODE. Upon return from output a 
jump back to LOOP is made. 


The last section of this main program, starting at RUPT, handles 
the PIPA and gyro interrupts as they come along every five milliseconds. 
The first interrupt, by the PIPA's, and every other one thereafter, will 
cause program control to "jump store" to RUPT where the SKS '507 
instruction will not skip and the jump to PDO is executed. Here the processing 
registers (A register, keys, B register and index register) are saved and 
calls to the subroutines necessary to update the PIPA algorithms are made 
(see the introduction and description of implementation methods). The PIPA 
squared errors are then saved in the buffer PISE for future output, then 
the processing registers are restored and a JMP RUPT causes program 
control to go back to where it was when last interrupted. 

The second interrupt, by the gyros, and every other one thereafter, 
will cause control to "jump store" to RUPT where the SKS '507 instruction 

See previous page 
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will skip and the SKS '407 instruction will not, and the jump to GDO is 
executed. Here the processing registers are saved. The table angle encoder 
is read after which calls to the subroutines necessary to update the gyro 
algorithms are made (see the introduction and description of implementation 
methods). The output timer, TCNT, and the overall timer, TIME are 
incremented before a jump to COMN restores the processing registers 
and returns to where the program control was when the gyro interrupt 
occurred. 
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HTCROCOHP TEL EC OH HON TC AT ED DATA 
DDP-516 AS SEHBLY LISTING 


00 " 1 

000 ? 00000 

0003 00001 

0004 00002 
"005 00003 

0006 "0004 

0007 00005 

0008 00006 
0004 00007 
0010 00010 
"Oil 00011 
"012 00012 
"013 000 1 3 
0 " 1 4 00014 
no is 00"15 
0016 "0016 
0017 00017 
"018 "0020 
0"19 00021 
"02" 00"22 
""21 00"23 
"022 00024 
9"23 ""025 
0 " 2 4 00"26 
0028 nn027 
""26 "0030 
On27 0 0 " 3 1 
" " 28 0O"32 
0028 00033 
"03" "o"34 
0"31 0 "035 
""32 00036 

0033 00037 

0034 ""040 

0035 00041 

0036 00042 

0037 ""043 

0038 00 044 

0039 00045 
004" 00046 
0041 00047 
"042 "0050 
""43 00051 
0 0 u u 00052 
0045 00053 
"046 00054 
0047 00055 
"049 00056 
"" 4 a 00057 
"050 0""6" 
0"51 0"-0 61 
"052 00062 
""53 ""063 
0054 "0064 
"055 00065 
0 " 56 00066 
0057 00067 


0 

10 

00000 

000007 

0 

02 

00342 

0 

35 

00654 

1 

04 

004 22 

0 

12 

00000 

0 

12 

or "oo 

0 

01 

00004 

0 

35 

00653 

1 

04 

00500 

0 

12 

00 000 

0 

12 

OCOOO 

0 

oi 

00011 

0 

35 

00652 

1 

04 

00700 

0 

12 

00000 

0 

12 

000 00 

0 

01 

00016 

0 

35 

00651 

1 

04 

01000 

-0 

04 

0 C 337 

-0 

04 

00340 

0 

12 

00000 

0 

12 

90 "00 

0 

"1 

00023 

-0 

04 

90324 

-0 

04 

90325 

-0 

04 

90 326 

-c 

04 

0 C 3 2 7 

-0 

04 

90339 

-0 

04 

00331 

000005 

0 

04 

00507 

0 

3 4 

00506 

0 

04 

00510 

0 

0 4 

00511 

-0 

04 

00332 

-0 

04 

00333 

-0 

04 

00334 

-0 

04 

00 335 

-0 

04 

00 336 

0 

02 

00650 

-0 

04 

00 3 37 

-0 

04 

00 340 

0 

02 

90647 

0 

04 

00 6 37 

0 

02 

90646 

0 

04 

00 401 

0 

04 

00403 

0 

04 

00405 

0 

04 

00407 

0 

"4 

00411 

0 

04 

00413 

0 

04 

00601 

0 

04 

00603 

0 

04 

00605 


REL 

CALL 

DCHI 

DBL 


DLD 

DZRO 

LD5C 

=-98 

DST 

•422,1 

IRS 

0 

TRS 

0 

JHP 

*- 3 

LDX 

= -40 

DST 

•500,1 

TRS 

0 

IRS 

0 

JHP 

*-3 

LDX 

=-68 

DST 

•790,1 

IRS 

0 

IRS 

0 

JHP 

*- 3 

LDX 

= -28 

DST 

• 1009, 1 

DST* 

CC AG 

DST* 

CCA? 

IRS 

0 

IRS 

0 

JHP 

* -5 

DST* 

PAD A 

DST* 

PAOB 

DST* 

PAOC 

DST* 

PA OD 

DST* 

PAOE 

DST* 

PAOF 

SGL 

STA 

DSCT 

STA 

ASCT 

STA 

MSCT 

STA 

ICNT 

STA* 

GYEK 

STA* 

PYEK 

STA* 

RPXW 

STA* 

PPYW 

STA* 

. RPZW 

LDA 

=-6001 

STA* 

CC A G 

STA* 

CC AP 

LDA 

=•77777 

STA 

TCNT 

LDA 

=•40000 

STA 

•401 

STA 

• 40 3 

STA 

* 405 

STA 

•407 

STA 

•411 

STA 

•413 

STA 

' 601 

STA 

•60 3 

STA 

•605 
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MTCfOCOMr TELECOMMUNICATED DATA 



DDP- 

516 

AS 

SEMBLY 

LISTING 


0750 

00070 

0 

04 

00607 


STA 

• 607 

7799 

00071 

0 

04 

00611 


STA 

•611 

OdfO 

00072 

0 

04 

00613 


STA 

• 613 

0061 

O0O79 

0 

04 

0C415 


ST. A 

•4 15 

0 06 2 

00 0 74 

0 

04 

00417 


STA 

•417 

0 06 9 

00076 

0 

04 

00421 


STA 

•421 

0064 

00076 

0 

04 

00615 


STA 

•615 

7 0 6 6 

00 077 

0 

04 

00617 


STA 

•617 

0066 

00 100 

0 

04 

00621 


STA 

•621 

0"67 

00 10 1 

0 

04 

00460 


STA 

•460 

00 6 0 

00 102 

0 

04 

00469 


STA 

• 463 

0 0 6,0 

00109 

0 

04 

00467 


STA 

•467 

0070 

00 104 

0 

04 

00479 


STA 

• 473 

0071 

00 106 

0 

04 

00477 


STA 

•477 

no ii 

on 106 

0 

04 

00 4 47 


STA 

• 4 47 

0079 

00 107 

0 

04 

00459 


STA 

•453 

0 0 74 

00 1 10 

0 

04 

no 457 


STA 

* 457 

0076 

00111 

0 

10 

00000 


CALL 

GMTN 

0076 

00 112 

0 

10 

ocooo 


CALL 

EMTN 

0077 

00119 

0 

02 

70 329 


IDA 

RDAD 

0079 

O 0114 

0 

04 

00063 


STA 

•63 

0070 

00116 

0 

10 

ooono 


CALL 

ICLNLT 

0 09 0 

0 0 116 

0 

02 

70 645 


IDA 

= 6 

0091 

00117 

74 

0020' 


SMK 

• 20 

009 7 

00 12" 

0 

10 

7C 310 


J ST 

GETM 

0099 





♦ 



0094 





* 



0099 

00 12 1 

OO0401 

LOO? 

ENB 


0 096 

00 122 

0 

02 

00637 


L D A 

TCNT 

OO 97 

00129 

n 

11 

00635 


CAS 

CPIT 

9 0 9 0 

00124 

10 1000 


NOP 


O 0 q q 

0 0 12 6 

0 

01 

00 141 


JMP 

OHT 

0000 

00126 

000201 


TAB 


0091 

00 127 

n 1P02 


SS4 


009? 

001 90 

0 

0 1 

00 121 


JMP 

LOOP 

0009 

00 19 1 

100004 


SR3 . 


no cui 

00192 

0 

0 1 

00 121 


J MP 

LOOP 

0 0 9 0 





* 



0 0 06 





* EXIT CODING 

00 07 





* 



0009 

0 0 19 9 

14 

0047 


OCP 

• 47 

0 0 90 

00 194 

14 

0067 


OCP 

• 57 

0 1 00 

00 19 6 

140049 


CPA 


OIOI 

00 196 

74 

0020 


SMK 

• 20 

0 10 7 

00 197 

00 100 1 


INH 


010? 

00140 

- 0 

01 

or 631 


JMP* 

DOS 

0104 





* 



0 10 6 





* 



0 1 06 

00 14 1 

100004 

OT?T 

SP 3 


0 1^7 

0014 2 

10 1002 


SS4 


0 1 op 

00149 

0 

0 1 

00 166 


JMP 

NOQZ 

0 109 

00144 

OQ00C7 


DBL 


olio 

00146 

0 

02 

00 342 


DID 

DZPO 

0111 

00 146 

0 

04 

00460 


DST 

•460 

0 112 

00147 

0 

04 

00462 


DST 

'462 

0 119 

0 0 16 0 

0 

04 

70464 


DST 

• 464 

0 114 

00 1 6 1 

f ) 

04 

00466 


DST 

•466 


TO SET HP TIME 
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HICBOCOHP TELECOHHONICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


Oils 

00152 

ft 

04 

00470 

DST 

•470 

0116 

00153 

0 

04 

00472 

DST 

•472 

0117 

00154 

0 

04 

00474 

DST 

• 474 

0118 

00155 

ft 

04 

00476 

DST 

•476 

0118 

00 156 

900005 

SGL 


0120 

00157 

0 

02 

00646 

LD A 

=•40090 

0121 

00160 

0 

04 

00460 

STA 

• 460 

0122 

00161 

0 

04 

00463 

STA 

•463 

0121 

00 162 

0 

04 

00467 

STA 

•467 

0124 

00163 

0 

04 

90473 

STA 

•47.1 

0125 

00164 

0 

04 

00477 

STA 

•477 

0126 

00165 

009007 

N0Q3 DBL 


0127 

00 166 

0 

02 

00460 

DLD 

•460 

n 1 29 

00167 

0 

04 

00346 

DST 

QTHP 

0129 

OO 170 

0 

02 

00464 

DLD 

• 464 

01.10 

00171 

0 

04 

00350 

DST 

QTHP*2 

0131 

00 172 

ft 

02 

00 470 

DLD 

• 470 

0132 

00173 

0 

04 

00 352 

DST 

QTHP*4 

0133 

o 0 174 

0 

02 

00474 

DLD 

• 474 

0134 

00 175 

0 

04 

00354 

DST 

QTHP*6 

0135 

00 176 

0 

02 

00444 

DLD 

•444 

0136 

00177 

0 

04 

00356 

DST 

QTHP*8 

0130 

00200 

0 

02 

00450 

DLD 

• 450 

0138 

00201 

ft 

04 

00360 

DST 

QTHP*10 

0139 

00202 

0 

02 

00 454 

DLD 

' 454 

0140 

00203 

o 

04 

00362 

DST 

QTHP* 1 2 

0141 

00204 

0 

02 

00 3 16 

DLD 

•316 

0142 

00205 

0 

04 

00364 

DST 

QTHP* 14 

0143 

00206 

0 

02 

00 3 20 

DLD 

•320 

0144 

00207 

0 

04 

00366 

DST 

QTHP* 16 

0145 

00210 

0 

02 

00776 

DLD 

TIHE 

0 146 

00211 

0 

04 

00370 

DST 

QTHP*18 

0 147 

00212 

o 

92 

00322 

DLD 

• 322 

0148 

00213 

0 

04 

00374 

DST 

QT M P * 2 2 

0149 

00214 

0 

02 

00324 

DLD 

' 324 

0150 

00215 

0 

04 

0 C 3 7 2 

DST 

OTHP*20 

0151 

00216 

0 

02 

00326 

DLD 

•3 26 

0152 

00217 

0 

04 

00376 

DST 

QTHP* 2 4 

0153 

00220 

0 

02 

00 3 30 

DLD 

' 330 

0154 

0P221 

0 

04 

00400 

DST 

QTHP* 2 6 

0155 

00222 

0 

02 

00 3 32 

DLD 

•332 

0156 

0022 3 

0 

04 

00402 

DST 

QT H P ♦ 2 8 

0157 

00224 

0 

02 

00436 

DLD 

* 436 

0158 

00225 

0 

04 

00404 

PST 

QTHP+30 

0159 

00226 

0 

02 

OC 4 40 

DLD 

•440 

0160 

CO 227 

0 

04 

00406 

PST 

QTHP* 3 2 

0161 

00230 

0 

02 

00442 

DID 

•442 

0 162 

00231 

ft 

04 

00410 

DST 

QTHP* 3 4 

0163 

00232 

0 

02 

00574 

DLD 

'574 

0164 

00233 

0 

04 

00412 

DST 

QTHP* 36 

0165 

00234 

0 

02 

004 32 

DLD 

PISE 

0166 

00235 

0 

04 

00414 

DST 

QTHP+38 

0167 

00236 

0 

02 

00434 

DLD 

PISE*2 

0168 

00237 

0 

04 

00416 

DST 

QTHP*40 

0169 

00240 

0 

02 

00436 

DLD 

PISE*4 

0170 

00241 

0 

C4 

00420 

DST 

QTHP*42 

0171 

00242 

0 

02 

OC 440 

DLD 

PISE*6 
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MT C° OCOM P TFT fcommontcated data 
DDP-516 ASSEMBLY LISTING 


o 17? 

oo ou3 

0 04 00422 


DST 

QTMP+44 

017? 

00244 

0 02 00442 


DLD 

PISE4-8 

0 174 

0 0 24 5 

0 04 00424 


DST 

QTMPf 46 

9 17 5 

0"246 

9 02 00444 


DLD 

PTSE+10 

0 176 

00247 

0 04 00426 


DST 

QTMP+48 

0 177 

00260 

0 02 00446 


DI.D 

PTSE+12 

017? 

00 26 1 

0 04 004 1C 


DST 

QTMP 50 

0 170 

00762 

9 02 00342 


DLD 

D2PO 

0 1 oo 

00 26 ? 

0 04 00444 


DST 

'444 

o 1R 1 

00254 

0 04 .00 4 50 


DST 

•450 

9 18 2 

o 0 255 

9 04 00454 


DST 

• 454 

0107 

00256 

990905 


SGL 


"18 4 

o 0 2 57 

9 04 00637 


STA 

TCNT 

OIOS 

00260 

9 10 09310 


J ST 

GFTM 

oi Of. 

00261 

0 0 0 9 9 7 


DBL 


0107 

00262 

0 02 00356 


DLD 

QTMP+8 

0100 

0 0 26 3 

0411 71 


LLS 

7 

0100 

002 64 

0 04 00356 


DST 

QTMP+B 

0 1 90 

00 265 

0 02 00 360 


DLD 

OTMP+ 10 

0101 

00266 

0411 71 


I.LS 

7 

0 192 

00 267 

9 04 00360 


DST 

QTMP + 1 0 

0 190 

00 270 

9 02 00362 


DLD 

QTMP+1 2 

0194 

00271 

0411 71 


LLS 

7 

0 195 

00272 

9 04 00362 


DST 

QTMP+12 

0 196 

00 27 3 

0 35 90651 


LDX 

--28 

0 1 O' 7 

00274 

1 02 00432 


DLD 

QTMP+52,1 

^ 1 0 0 

00275 

0411 67 


LLS 

9 

0 199 

00276 

1 04 00432 


DST 

QTMP+52,1 

0 2 n 0 

00277 

0 12 00000 


IBS 

0 . 

0201 

00 300 

0 12 00O00 


TBS 

' 0 . 

020 2 

nn 30 1 

0 01 00274 


J BP 

.*-5 

o20 9 

00 302 

00 0005 


SGL 


0 204 

00 30 3 

0 10 ooooo 


CALL 

OUTPUT 

0205 

00304 

0 090346 


DAC 

QTMP 

0206 

00 305 

0 090636 


DAC 

MODE 

0207 

00 306 

009900 


OCT 

0 

02 0 Q 

00 30 7 

0 01 00121 


J HP 

LOOP 

o 2 o p 



* 



0210 

9 0 310 

G 000000 

GFTM 

DAC 

** 

0211 

00 31 1 

140040 


CPA . 


0212 

09312 

100920 


SB 1 


o2l ? 

003 1 3 

1412C6 


AOA 


0214 

09 314 

1000 10 


SB 2 


0215 

90315 

9 02 00644 


IDA 

= 2 

0216 

OO 3 16 

0 04 00636 


STA 

MODE 

"217 



* 



o 2 1 A 

00 317 

0 04 00000 


STA 

0 

0219 

00 320 

1 02 00632 


I.D A 

TCON , 1 

0220 

00 32 1 

0 04 00635 


STA 

CHIT 

0221 

00322 

-0 0 1 00 3 1 C 


JMP* 

.GETM 

0222 



* 



o?'n 

00323 

o ocroec 

BDAD 

XAC 

RUPT 

02 24 

09 324 

0 0000 00 

P AO A 

X A C 

AO AP 

o 7 ? 5 

90325 

0 099000 

PAOB 

XAC 

■ BOAP 

0226 

00326 

0 oooooo 

PAOC 

XAC 

COAP 

0 2 27 

00 32 7 

0 990000 

PAOD 

XAC 

DOAP 

0220 

00330 

0 000000 

P AO E 

XAC 

EO AP 


MODE 
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MICPOCONP TELECOMMflNICAT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0220 

0033 1 

0 OOOOOO 

PAGE X AC 

FOAP 

0230 

00332 

0 OOOOOO 

GYEK XAC 

KEYG 

0231 

00333 

0 OOOOOO 

PYEK XAC 

KEYP 

0232 

00334 

0 OOOOOO 

RPXW XAC 

ffXPR 

02 33 

00335 

0 OOOOOO 

RPYW XAC 

WYPR 

"234 

00336 

0 OOOOOO 

RPZN XAC 

WZPR 

0235 

00 377 

1 OOOOOO 

CCAG XAC 

G ACC, 1 

0236 

00340 

1 OOOOOO 

CCAP XAC 

P ACC , 1 

0237 

00342 

OOOOOO 

DZRO DBP 

0 


00343 

OOOOOO 



"23R 

0 " 3 4 4 

OOOOOO 

DONE OCT 

0,1 


00345 

000001 



023" 

00346 

OOOOOO 

QTMP BSZ 

52 


00347 

OOOOOO 




00 350 

OOOOOO 




00351 

OOOOOO 




00352 

OOOOOO 




00353 

OOOOOO 




00354 

OOOOOO 




00355 

ooooco 




00356 

OOOOOO 




00357 

OOOOOO 




00360 

OOOOOO 




00361 

OOOOOO 




00362 

OOOOOO 




00363 000000 

00 364 000000 

00366 000000 

00366 000000 

00367 000000 

00370 000000 

00371 000000 

00372 000000 

00373 000000 

00374 000O00 

00375 000000 

00376 000000 

00377 000000 

00400 000000 

00401 000000 

00402 000000 

"0403 000000 

00404 000000 

00405 000000 

"0406 000000 

00407 "00000 

00410 000000 

00411 000000 

00412 000000 

00413 O00000 

00414 000000 

00415 000000 

00416 000000 

00417 000000 

00420 000000 

00421 000000 

00422 000000 
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MTCR OCOM P 

TELECOMMUNICATED DATA 




DDP 

-516 ASSEMBLY 

LISTING 




00423 

000000 





C0424 

000000 





00425 

noooeo 





0 0 4 26 

OO0000 





004 27 

000000 





0O430 

000000 





00431 

O0O900 




0 2 4 r 

00432 

9O0000 

PISE BSZ 

14 



0 04 13 

0 oooro 





00434 

ncoooo 





0 0 4 3 5 

O00000 





00436 

coooco 





00437 

000O00 





00449 

0 AOAP0 





00441 

000000 





0 A 4 4 2 

000000 





OO443 

OCOOOO 





a 9 4 4 4 

000000 





00445 

O010C0 





00446 

nooooo 





0044-7 

009000 




0241 



* 



o 24"> 



* 



0 241 



SUER 

PUPT 


o 2 4 4 



STJBR 

ASCT 


A 2 4 5 



PEL 



o 246 

0 0 4 6 5 

0 DOO0C0 

FUPT DAC 

** 


0 241 

A045 1 

14 0102 

OCP 

• 102 

SHUT OFF DGS 

0 2 4 4 

90462 

34 0507 

SKS 

•507 


0 249 

OO453 

0 01 90512 

JMP 

PDO 


0 2 60 

00454 

34 0497 

SKS 

* 407 


0 29 1 

00455 

9 01 A C 565 

JMP 

GDO 


A 2 6 2 

a 0 4 5 6 

34 0607 

SKS 

•607 


A 2 9 2 

00457 

0 01 00501 

JMP 

ICLK 


a 2 r ' 4 

a 0 46 0 

34 0425 

SKS 

• 425 


n 2 56 

0 0 4 6 1 

0 01 00475 

JMP 

DISK 

DISK RUPT 

0266 

00462 

34 0494 

SKS 

• 404 


a 2 57 

0 046 3 

0 01 00467 

JMP 

ASP 

ASP RUPT 

0 2 5 9 

9 04 64 

0 12 00510 

IRS 

MS CT 

MISCELLANEOUS 

0269 

00465 

000401 

PSM ENB 



A 26A 

00466 

-0 01 OC 450 

JMP* 

PUPT 


a 26 1 



* 



0 262 

00467 

14 0004 

ASP OCP 

4 


0 26 7 

00470 

54 0004 

INA 

4 

DUMMPY 

0 26 4 

00471 

101000 

NOP 



0266 

00472 

0 12 00506 

IRS 

ASCT 


0 265 

00473 

101000 

NOP 


IN CASE OF SKIP 

a 067 

00 474 

0 01 00465 

JMP 

RSM 


0269 



* 



0 269 

00 475 

14 1425 

DISK OCP 

• 1425 


0 210 

00476 

0 12 00507 

IPS 

DSCT 


0271 

OQ477 

101000 

NO? 


IN CASE OF SKIP 

A 2 77 

O05 r 9 

0 01 OC 4 65 

JMP 

RSM 


a 2 7 7 



* 



0274 

00 50 1 

0 12 00511 

ICLK TPS 

I C NT 


0276 

9 0 502 

101O00 

NOP 



0276 

00503 

14 0027 

OCP 

• 27 
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HTCROCOHP TELECOHHONTCATED DATA 



DPP- 

516 ASSEHBLY 

LISTING 


0277 

00504 

14 0067 


OCP 

’67 

0278 

00505 

0 01 00465 


J HP 

RSH 

0279 

00506 

oooooo 

A SCT 

BSZ 

1 

0280 

00507 

000000 

DSCT 

BSZ 

1 

0281 

00510 

oooooo 

MSCT 

BSZ 

1 

0282 

00511 

oooooo 

TCNT 

BSZ 

1 

0281 



♦ 



0284 



♦ 



"285 

00512 

0 13 00640 

POO 

THA 

APEG 

0286 

00513 

000043 


TNK 


0287 

"0514 

C00005 


SGL 


"288 

005 15 

" 04 00641 


STA 

KEYS 

0289 

00516 

"00201 


I A B 


029" 

00517 

0 04 00642 


STA 

BP EG 

0291 

00520 

0 15 00643 


STX 

XREG 

0292 



* 



0293 



* 



0294 



* 



0295 



* 



"296 

"0521 

0 10 00000 


CALL 

INPIP 

"2°7 

00522 

000401 


ENB 


0298 

0 0 523 

0 10 00000 


CALL 

ACOM 

"299 

00524 

0 10 0000" 


CALL 

ROHS 

0 300 

00525 

0 10 ocooo 


CALL 

PAPC 

0301 

0"526 

0 1 C ocooo 


CALL 

PPTS 

0 302 

00527 

0 10 00000 


CALL 

PPRT 

0303 

00 53" 

0 10 "OCOO 


CALL 

EHIN 

0304 

00531 

0 10 00000 


CALL 

HP 6 3 

0 305 

00532 

0 10 "OCOO 


CALL 

SPUN 

0306 

00 53 3 

0 10 00000 


CALL 

VELA 

0307 

00534 

0 10 ocooo 


CALL 

V ACU 

0 3 08 

00535 

000007 


DBL 


"309 

00536 

0 02 00326 


DID 

•326 

0310 

00537 

o 04 00 4 32 


DST 

PISE 

0311 

CO 540 

0 02 0C330 


DID 

• 330 

0312 

00541 

0 04 00434 


DST 

PISE+2 

"313 

00542 

0 02 00332 


DID 

•332 

0314 

0"543 

0 04 00436 


DST 

PTSE + 4 

0315 

CO 544 

0 02 00436 


DLD 

•436 

0 316 

00545 

0 04 00440 


DST 

PISE + 6 

0317 

00546 

0 02 00440 


DLD 

• 440 

0318 

"054 7 

0 04 00442 


DST 

PISE+8 

0319 

0055C 

0 02 00442 


DLD 

' 442 

0 3 20 

"0551 

0 04 00444 


DST 

PISE+10 

0321 

00552 

0 02 00574 


DLD 

•574 

"322 

00553 

0 04 00446 


DST 

PISE* 1 2 

0 323 

00554 

000005 


SGL 


0324 



* 



0325 



♦ 



0 326 

00 555 

0 35 00643 

CORN 

LDX 

XR EG 

0 327 

00556 

0 02 0C642 


LDA 

BP EG 

0328 

00557 

000201 


IAB 


0329 

00560 

0 02 00641 


LDA 

KEYS 

0330 

00561 

171020 


OTK 


0331 

00562 

0 13 OC 640 


THA 

A REG 

0332 

00 56 3 

000401 


ENB 


0 333 

00564 

-0 01 00450 


J HP* 

RUPT 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 



0334 



* 




0335 



* 




0 336 

00565 

0 13 00640 

GDO 

IMA 

AREG 


0 33 7 

00566 

000043 


INK 



0 33 P 

00567 

000005 


SGL 



9 339 

00570 

0 04 00641 


STA 

KEYS 


P340 

00571 

000201 


I A B 



0341 

00572 

0 04 00642 


STA 

BREG 


0342 

00573 

0 15 00643 


STX 

XR EG 


0 343 



* 




0344 



* 




0345 

00574 

34 0007 


SKS 

•007 

WATT FOR DTGISEC 

0 3 4 6 

00575 

0 01 00574 


JMP 

*- 1 


9 347 

O0 576 

14 0406 


OCP 

•406 

HOLD 

0 3 4 P 

0 0 577 

0401 62 


IRS 

14 

WAIT 8 MCT'S 

0349 

00600 

54 1^16 


INA 

•1016 

HIGH HALF 

0350 

0060 1 

101000 


NOP 



0351 

00602 

0 04 00324 


STA 

' 324 


0 35 2 

00603 

54 1006 


INA 

• 1006 

LOW HALF 

0393 

00604 

101000 


NOP 



0 354 

00605 

0 04 00325 


STA 

•325 


0 355 

00606 

14 0006 


OCP 

•006 

END HOLD 

0355 

00607 

9 10 00000 


CALL 

TNGYPO 


0 367 

00610 

900401 


ENB 



0359 

006 1 1 

0 10 00000 


CALL 

DCMT 


0 359 

00612 

0 10 00000 


CALL 

GCOM 


0 3 60 

006 1 3 

0 10 00000 


CALL 

GARC 


0361 

00614 

9 10 00000 


CALL 

GEIS 


0362 

00615 

0 10 00000 


CALL 

GPRT 


0 36 3 

00616 

9 10 00000 


CALL 

GMT N 


0364 

00617 

0 10 00000 


CALL 

MG6 3 


0 3P 5 

00520 

0 10 00000 


CALL 

ERCO 


036P 

0062 1 

9 10 00000 


CALL 

ATTA 


0 367 

00622 

0 12 00637 


IRS 

TCNT 


0368 

00623 

000007 


DEL 



0369 

00624 

0 02 00776 


OLD 

TIME 


0390 

00625 

9 06 00344 


DAD 

DONE 


0391 

00626 

0 04 00776 


B ST 

TIME 


0372 

00627 

000005 


SGL 



037? 



* 




0394 



* 




0 375 

00630 

0 01 00555 


JMP 

CO MN 


0 376 



* 




0 3 79 



* 




0378 



* 




0379 

00631 

030008 

DOS 

OCT 

30000 


0 3«0 

00632 

013560 

TCON 

DEC 

6000 

30 SEC FOP TTY 

0 381 

00633 

900620 


DEC 

400 

4 SEC FOB CRT 

0 332 

00634 

000144 


DEC 

100 

.4 SEC FOB DGS 

0389 



* 




0384 

0 0 635 

000000 

CPIT 

BSZ 

1 


0395 

0 06 36 

900000 

MODE 

BSZ 

1 


03°6 

00637 

977777 

TCNT 

OCT 

77777 


0 389 

00640 

oooooo 

APEG 

BSZ 

1 


0339 

00641 

ooooco 

KEYS 

BSZ 

1 


0 3 89 

00642 

CQ990Q 

BREG 

BSZ 

1 


0390 

0 0 643 

000900 

XRES 

BSZ 

1 
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MICPOCOHP TELECOM HUN ICATED DATA 
0DP-516 ASSEMBLY LISTING 
0.391 000776 TIME EOU '776 

0392 00644 000002 END 

00645 000006 

00646 040000 

00647 077777 

00650 164217 

00651 177744 

00652 177674 

0065.3 177730 

00654 177636 
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PROGRAM NAME (Note: this is a FORTRAN program) 

SOURCE: ALPO 
BINARY: BALPO 

ENTRY POINTS (location): OUTPUT C07530), DODSP (’07600) 

GENERAL DESCRIPTION: 

When called, this subroutine will output the information about the 
system status either on the teletype or the CRT screen in the format shown 
in Figure 2 or as a block of 104 bytes (6 single precision numbers giving 
gyro and PIPA fail status and third fail indication and 23 double precision 
numbers; 4 for the quaternion, 3 for AV^, 14 for gyro and PIPA squared 
errors, 1 for time and 1 for the encoder) on digistor tape. See the 
documentation for MPRO (the main program which calls OUTPUT) and for 
the output subroutines SDGS, SXOU and SFPOUT. 




(NO FAILS INDICATED) 


QUAT 

0.999595 

0 

.000016 0.000069 - 

0 . u0uG35 

DlLVRF - 

979.664062 


8.601562 - 8.453125 

LRU OR 3 

f 0.25 

l.SS 1 



A-F Gyro 

0.01 

0.01 

1.89 

0.01 

A-F PIPA 


Squared 

0.06 

3.51 

Squared 


Error 

0.39 

0.39 

Error 



0.14 

0.56 




0.87 

8.26 

Total Squared Error 


uYRO FAIL 
FIFA FAIL 
T I L 1 

30.00 (sec) 




TA3LE ANGLE 

0.761531 (IN REVOLUTIONS) 

' 


Fig. 2 CRT System Status Display 
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NTCROCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 
SUBROUTINE OUTPUT (ARG, MODE) 
nooooo DAC OOOOOO 

000001 CALL FIAT 

000002 OCT 000002 

000003 DAC 000000 

000004 DAC 000000 

INTEGER ARG (52) , MODE, RODS AV 
DATA MODSAV /-I/ 

OOOO 05 JMP 000000 

OP0O°6 OCT 177777 

IF (MODE. EQ. 2) GOTO 100 
STG 000005 
000007 LDA* MODE 

0000 1° SUB = * 000002 
0°0O11 SZE 000 OOO 

000012 JMP 000000 

O00°1 7 JMP _100 

STG 0°00 1 2 

IF (MODE. EQ. MODSAV) GOTO 50 
000014 L DA* MODE 

0000 1 5 SUB MODSAV 

000016 SZE 000000 

0 °0Q 1 7 JMP 000000 

00Q02 r JMP _5° 

STG 000017 

CALL IOMODE (MODE) 

0O0O21 CALL IOMODE 

000027 DAC* MODE 

MODSA V=MODE 
000023 LDA* MODE 

000024 STA MODSAV 

50 CALL DODSP(ARG) 

STG _50 

000025 CALL DODSP 

000026 DAC* ARG 

TF (MODSA V. EQ. 1) CALL C10U(2H -.) 
000027 LDA MODSAV 

000030 SUE =<000001 

000031 SZE 000000 

°00032 JMP 000000 

000037 CALL C10U 

000034 DAC = ' 120 3 36 

STG 000032 

RETURN 
C 

C DTG T STOF OUTPUT 
C 

000036 JMP* 000000 

100 CALL DGSWPT (ARG, 52) 

STG _ 1 00 

000036 CALL DGSWRT 

000037 DAC* ARG 

000040 DAC ='000064 

000041 OCT 000000 

RETURN 

000042 JMP* 000°00 

END 
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C 

c 

c 



STG 

=*000001 

000043 

OCT 

000001 


STG 

=•000002 

OPOO4 4 

OCT 

000002 

OOOO 03 

DAC 

ARG 

000004 

DAC 

MODE 


STG 

=•000064 

'''00045 

OCT 

000064 

OCOOOg 

DAC 

MODS AV 

000035 

DAC 

100 

nnoo 25 

0 AC 

^50 

00000* 

DAC 

TOMODE 

OOOOOn 

DAC 

PODSP 

OOOOor* 

DAC 

CIOO 


STG 

=• 120336 

000046 

OCT 

120336 

0000.00 

DAC 

DGSWRT 

SUBROUTINE DODSP(ARG) 

0 r, 000 r ' 

DAC 

000000 

*00*01 

CALL 

F$AT 

0O00O2 

OCT 

00000 1 

Ooooo 3 

DAC 

0OO00O 

COMWON/LTST/ LTST(1) 

LOGICAL 

LIST 

TN m 

EGER 

ARG (24) 

CAI. 

I XNOO A ( 9HQUAT 

0000O4 

TIP 

000000 


STG 

0O0004 

000**5 

JMP 

000000 

000006 

OCT 

150725 

000007 

OCT 

140724 

0*001* 

OCT 

120240 

OOOOi 1 

OCT 

120240 


STG 

000005 

000012 

CALL 

XNOUA 

00001 3 

DAC 

0*0006 

000*14 

DAC 

=*000010 

00 00 1 5 

OCT 

000000 

DO 

10 1 = 

1,7,2 

000016 

L DA 

=*000001 

0*0*17 

STA 

I 

C A T 

T, FPOUTC (ARG (I) , 1 , 

000020 

LDA 

I 

000021 

ADD 

ARG 

000022 

ADD 

000024 

000023 

JNP 

000025 

00OO24 

OCT 

177777 

*00025 

STA 

TS1000 

000026 

CALL 

FPOUTC 

00C027 

DAC* 

TS 1000 

0O00 3* 

DAC 

=•000001 

000031 

DAC 

=•000006 

0*0*32 

OCT 

000000 

10 CAL 

T, XN0UA(2H ,2) 
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000033 

CALL 

XNOUA 

000034 

DAC 

= • 120240 

0D0035 

DAC 

=•000002 

000036 

OCT 

000000 

000037 

LDA 

I 

000040 

ADD 

=•000002 

000041 

CAS 

=•000007 

000042 

J HP 

000045 

000043 

JMP 

000017 

000044 

J HP 

000017 

CALL XI 00 (138) 

000045 

CALL 

X 10D 

000046 

DAC 

=•000212 


CALL XNOUA (8HDELVRF 

000047 

JHP 

000000 

000050 

OCT 

142305 

000051 

OCT 

146326 

000052 

OCT 

151306 

000053 

OCT 

120240 


STG 

000047 

000054 

CALL 

xnoda 

000055 

DAC 

000050 

000056 

DAC 

=•000010 

000057 

OCT 

000000 


DO 20 1=9 

,13,2 

000060 

LDA 

=•000011 

000C61 

STA 

I 

CALL FPOUTC (APG (I) , 

"00062 

LDA 

I 

000063 

ADD 

APG 

000064 

ADD 

000066 

000"65 

JMP 

000067 

000066 

OCT 

177777 

000067 

STA 

TS1000 

000070 

CALL 

FPOUTC 

0 "007 1 

DAC* 

TS1P00 

000072 

DAC 

=•000017 

000073 

DAC 

= • 000006 

000074 

OCT 

000000 

20 i 

CALL X NOU 

A (2H ,2) 

0O0075 

CALL 

XNOUA 

000076 

DAC 

= • 120240 

000077 

DAC 

= * 000002 

000100 

OCT 

000000 

000101 

LDA 

I 

000102 

ADD 

=•000002 

000103 

CAS 

=•000015 

000104 

JHP 

000 107 

000105 

JHP 

000061 

000106 

JMP 

00006 1 

CALL X10U 

(138) 

000107 

CALL 

X 10U 

000110 

DAC 

=•000212 

CALL XNOUA (8HEFPOBS 

000111 

JHP 

000000 

000112 

OCT 

142722 

0"01 13 

OCT 

151317 
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MTCROCONP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

0001 14 

OCT 

151323 

OCOI 15 

OCT 

120240 


STG 

000111 

0001 1 6 

CALL 

XNODA 

0001 17 

DAC 

000112 

000120 

DAC 

=•000010 

0O0121 

OCT 

000000 

DO 

25 1=1 

,13,2 

000122 

I.DA 

=•000001 

O00 123 

STA 

I . 

CALL FPOUTC (ARG(I*24) 

000124 

L DA 

I 

000125 

ADD 

AEG 

0O0 1 25 

ADD 

000130 

000127 

.IMP 

000131 

000 1 30 

OCT 

000027 

000131 

STA 

TJ 1000 

0O0 1 32 

CALL 

FPOUTC 

o 0 0 1 3 3 

DAC* 

T$ 1000 

000134 

DAC 

=•000017 

000135 

DAC 

= • 000002 

ooo 1 35 

OCT 

OOOOOO 

CALL X N O'J A ( 2 H ,2) 

0001 37 

CALL 

XNOIIA 

000 140 

DAC 

= • 120240 

OOO 141 

DAC 

=•000002 

ooo 1 42 

OCT 

000000 


CALL FPOUTC (ARG (T+38) ,15,2) 


ODD 1 4 3 

IDA 

I 

000144 

ADD 

ARG 

(1001 45 

ADD 

000147 

onn 1 46 

JMP 

000150 

000147 

OCT 

000045 

000150 

STA 

TS1000 

ooo 151 

CALL 

FPOUTC 

ooo 1 52 

DAC* 

T* 1000 

000153 

DAC 

=•000017 

000154 

DAC 

=•000002 

00O155 

OCT 

OOOono 

CALL X 1 0 0 (138) 

OOO 1 55 

CALL 

XI Oil 

OOO 1 57 

DAC 

=•000212 

25 

CALL XNOIIA (8H 

0001 50 

JMP 

oooooo 

0001*1 

OCT 

120240 

OOP 1 52 

OCT 

120240 

000153 

OCT 

120240 

0 oo 1 54 

OCT 

120240 


STG 

000160 

Ooo 165 

CALL 

XNOIIA 

OOO 165 

DAC 

000161 

000167 

DAC 

=•000010 

000170 

OCT 

OOOOOO 

000171 

LDA 

I 

000172 

ADD 

= *000002 

000173 

CAS 

=•000015 

000174 

JMP 

000177 
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516 ASSEMBLY LISTING 

000 175 

JMP 

000123 

000176 

JMP 

000123 

CAT! X 10U ( 1 30) 

000177 

CALL 

X10U 

000200 

DAC 

='000212 


CALL XNOUA (10HGYRO FAIL ,10) 

0 C 0 2 0 1 

JMP 

000000 

000202 

OCT 

143731 

000203 

OCT 

151317 

000204 

OCT 

120 30 6 

000205 

OCT 

140711 

000206 

OCT 

146240 


STG 

000201 

O00207 

CALL 

X NONA 

000210 

DAC 

000202 

"00211 

DAC 

=•000012 

000212 

OCT 

000000 


IF(AR0(15) .EQ.O) GO TO 35 

000213 

IDA 

ARG 

000214 

ADD 

000216 

000215 

JMP 

000217 

"C" 2 1 6 

OCT 

000016 

000217 

STA 

TJ 1000 

000220 

LDA* 

T$ 1 000 

000221 

SZE 

000000 

000222 

JMP 

ooooon 

000223 

JMP 

35 


STG 

000222 

CATL X NOIJ A (4H ,4) 

000224 

JMP 

0"0000 

000225 

OCT 

120240 

000226 

OCT 

120240 


STG 

000224 

000227 

CALL 

XNOUA 

"00230 

DAC 

000225 

O"0 23 1 

DAC 

= ' 000004 

000232 

OCT 

oooooo 

CAT L XlOU (ARG (15) +192) 

000273 

T.D A 

ARG 

000234 

ADD 

000236 

00" 235 

JMP 

000237 

"00236 

OCT 

"0001 6 

""0237 

STA 

Tf 1000 

"0024" 

IDA* 

T $ 1 00 0 

000241 

ADD 

= • 00" 300 

"00242 

STA 

TI100 1 

000243 

CALL 

X10U 

000244 

DAC 

T$ 1 00 1 


IF (ARG (16) . EQ.O) GO TO 35 


000245 

LDA 

ARG 

000246 

ADD 

000250 

"00247 

JMP 

000251 

000250 

OCT 

000017 

000251 

STA 

T$ 1000 

0002*2 

LDA* 

T$10"0 

000253 

S7,F 

oooooo 

000254 

JMP 

oooooo 
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0O02S5 

J HP 

35 


STG 

0 OQ 25 4 

n 

AIL XNOUAfUH , 

000256 

J HP 

000000 

000257 

OCT 

120240 

o 0 0 p 6 o 

OCT 

120240 


STG 

000256 

ono op i 

CAT L 

X NOD A 

70076? 

DAC 

000257 

000263 

D AC 

= '000004 

70026a 

OCT 

000000 


CAT L XI OU (ARG (16) +14 2) 

000265 L DA ARG 

ADD 000270 

C-70267 JHP 000271 

*nr)2ir oct 000017 

000271 STA TflOOO 

000 777 LDA* TS 1000 

OOC071 ADD ='000200 

000 274 STA Tf 100 1 

70 777 ^ CAT T, XI 00 

0 n 0 2 7 0 DAC TS 100 1 

TF (ARG (23) . NE.O) CALL XNOHA(10H THIRD , 10 ) 


0 O Q 2 7 7 

LDA 

ARG 

ODD 3 0 0 

A PD 

000 302 

000301 

J HP 

000303 

ODD 37 2 

oct 

000026 

oop 3D 3 

STA 

T* 1000 

or o 30 4 

LDA* 

T$ 1000 

0 0 D 3 0 5 

S HZ 

000000 

ODD 376 

J H P 

000000 

ODD 37 7 

.1 HP 

000000 

000310 

OCT 

120240 

000 3 1 1 

OCT 

120240 

0 0 0 3 1 2 

oct 

152310 

000 3 1 3 

OCT 

144722 

0^03 1 U 

OCT 

142240 


STG 

0O0307 

doo 315 

CALL 

XNOUA 

0 0 0 3 1 6 

DAC 

000310 

000 317 

DAC 

= '000012 

000377 

OC' 1 ' 

000000 


STG 

000306 


35 CALL X 100 ( 1 38) 

STG _ 35 

000321 CALL X10TI 

000322 DAC ='000212 

CATL XNOtTA (10HPIPA FAIL ,10) 


000323 

JHP 

000000 

000324 

OCT 

15031 1 

000325 

OCT 

150301 

000326 

OCT 

120306 

000327 

OCT 

140711 

000337 

OCT 

146240 


STG 

000323 

000331 

CALL 

XNOMA 

070332 

DAC 

000324 
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000333 

D AC 

=•000012 

000334 

OCT 

000000 


IF(ARG (17) 

. EQ. 0) GO TO 

000335 

LDA 

AEG 

000336 

ADD 

000340 

000337 

J BP 

000341 

000340 

OCT 

C 00020 

000341 

STA 

TflOOO 

000342 

LDA* 

Tt 1000 

000343 

SEE 

000000 

000344 

.IMP 

000000 

000345 

JMP 

40 


STG 

000344 

CALI. XNOUA (4H ,4) 

000346 

JOP 

0*0000 

000347 

OCT 

120240 

00035n 

OCT 

120240 


STG 

000346 

000351 

CALL 

YNOtlA 

000352 

DAC 

000347 

00*353 

DAC 

=•000004 

000354 

OCT 

00000* 

CALL X10U (ARG(IY) ♦ 192) 

000355 

LDA 

ARG 

000356 

ADD 

*00360 

000357 

J BP 

000361 

0*0.360 

OCT 

000*2* 

000361 

STA 

TS100C 

000362 

LDA* 

T* 1000 

000363 

ADD 

=•000300 

000364 

STA 

T*10*1 

000365 

CALL 

X10U 

000366 

DAC 

TS100 1 

TF(ARG (18) 

.EQ.O) GO TO 

000367 

LDA 

ARG 

0*0370 

ADD 

0*0 372 

000371 

J BP 

*00373 

0*0372 

OCT 

*00021 

*00373 

STA 

T $ 1000 

000374 

LDA* 

TS1000 

000375 

SZE 

0000*0 

O00376 

J BP 

oooooo 

000377 

J BP 

40 


STG 

000376 

CALI. XNOO A (4H ,4) 

000400 

J BP 

oooooo 

*00401 

OCT 

120240 

0004*2 

OCT 

120240 


STG 

000400 

000403 

CALL 

XNOtJA 

000404 

DAC 

000401 

0004*5 

DAC 

=•000004 

000406 

OCT 

0000*0 

CALL XI 00 (ARC (18) ♦192) 

000407 

LDA 

ARG 

000410 

ADD 

000412 

000411 

J HP 

000413 
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000412 

OCT 

000021 

000413 

STA 

T$ 1000 

00 0414 

LDA* 

T$ 1000 

000416 

ADD 

=•000300 

000416 

STA 

TS1001 

000417 

CALL 

X 1 Oil 

000420 

DAC 

T$ 100 1 


IF (ARG (24) . NE, 0) CALI XNOUA(10H 


000421 

LDA 

ARG 

O00422 

Ano 

000424 

000423 

JMP 

0 A 0426 

000424 

ncT 

000027 

900425 

STA 

T* 1000 

000426 

LDA* 

TS 1000 

000427 

SN 7. 

000000 

O00 4 7 A 

JMP 

000000 

900431 

.IMP 

000000 

O00 4 3 2 

OCT 

120240 

r\ r 0 4 7 3 

OCT 

1 20240 

000434 

oct 

162310 

0004 36 

oct 

144722 

000436 

OCT 

142240 


STG 

0 n 0 43 1 

000477 

CALL 

XNOUA 

999440 

DAC 

0 D 0 4 3 2 

067441 

DAC 

='000012 

000642 

OCT 

000000 


STG 

000430 

40 CATt 

, yioij{i3R) 


STG 

_40 

000647 

C A I L 

X 10 U 

000444 

DAC 

=•000212 

CALI 

. VNOOA 

. (RHTIME 

O0 n 446 

JMP 

D 00000 

000446 

OCT 

162311 

000447 

OCT 

146705 

000 4 60 

OCT 

120240 

000461 

OCT 

120240 


STG 

000445 

OOO 459 

CALL 

XNOUA 

000463 

DAC 

000446 

0 C A 4 6 4 

DAC 

=*006010 

OQ0466 

OCT 

097000 

CALI 

OUT 100 (ARG (19) ) 

000466 

T 0 S 

ARG 

000467 

ADD 

000461 

000460 

JMP 

000462 

00046 1 

OCT 

000022 

000462 

STA 

TS 1000 

00046 3 

CALL 

OUT 16 0 

O00464 

DAC* 

T$ 1000 

CAT.L 

X 10H (1 3R) 

0 0 0 4 6 6 

CAM 

X 100 

000466 

DAC 

=•000212 

CAI-L 

XNOIIA (8HTABLE 

000467 

JMP 

060000 

000470 

OCT 

1 52301 


THIRD 
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000471 

OCT 

141314 

000472 

OCT 

142640 

000473 

OCT 

120240 


STG 

000467 

000474 

CALL 

X NOD A 

0O047S 

DAC 

000470 

000476 

DAC 

=•000010 

0C0477 

OCT 

oooobo 

CALL FPOUTC (AEG (21) 

000500 

LDA 

ARG 

000501 

ADD 

000503 

000502 

JNP 

000504 

000503 

OCT 

000024 

000504 

STA 

TI1000 

000505 

CALL 

FPOUTC 

000506 

DAC* 

T51000 

000507 

DAC 

='000000 

000510 

DAC 

=•000006 

000511 

OCT 

000000 


CALI. X 10IJ (138) 

000512 

CALL 

X 1 00 

000513 

DAC 

=•000212 

CALL X 100 (138) 

000514 

CALL 

XIOO 

000515 

DAC 

RETURN 

=•000212 

000516 

JMP* 

END 

000000 


STG 

=•000001 

000517 

OCT 

000001 


STG 

=•000002 

000520 

OCT 

000002 


STG 

=•000004 

000521 

OCT 

000004 


STG 

=•000006 

000522 

OCT 

000006 

000003 

DAC 

ARG 

000000 

DAC 

LIST 

000000 

DAC 

XNOUA 


STG 

=•000010 

000523 

OCT 

000010 

000033 

DAC 

10 


STG 

I 

000524 

OCT 

004640 


STG 

=•000007 

000525 

OCT 

000007 

000000 

DAC 

FPOOTC 


STG 

TS10C0 

000526 

OCT 

012244 


STG 

=•120240 

000527 

OCT 

120240 

000000 

DAC 

XIOO 


STG 

=•000212 

000530 

OCT 

000212 

000075 

DAC 

20 


STG 

=•000011 

000531 

OCT. 

000011 
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STG 

=•000015 

000532 

OCT 

000015 


STG 

=•000017 

O00533 

OCT 

000017 

000160 

DAC 

25 


STG 

= *000012 

000634 

OCT 

000012 


STG 

='000000 

000536 

OCT 

0^0000 

000321 

DAC 

35 


STG 

='000300 

000536 

OCT 

000300 


STG 

TS1001 

0 C 0 5 3 7 

OCT 

C 12244 

000443 

DAC 

_40 

OOOOO" 

SO 

DAC 

OUT 100 
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PROGRAM NAME: 

SOURCE: SFPOUT 
BINARY: BFPOUT 

ENTRY POINT (location): FPOUTC ('10340), OUTlOO ('10552) 
GENERAL DESCRIPTION: 


FPOUTC is called by the output subroutine ALPO and prints on the 
teletype or displays on the CRT (See documentation for subroutine SXOU) 
a decimal number representation of the binary number designated by the 
call. The call in FORTRAN is 


or in DAP 


CALL FPOUTC (ARG, S, P) 


CALL FPOUTC 

DAC ARG 

DAC S 

DAC P 

OCT 0 

where ARG is the number to be printed, S is the number of bits after the 
sign bit before the binary point, and P is how many decimal digits to print 
after the decimal point. 


OUTlOO is also called by ALPO and is used to print on the teletype 
or display on the CRT 1/100 of a double precision integer. It is only used 
tc print out the variable TIME, which is really a count of updates and needs 
to be divided by 100 to scale it to seconds. The call in FORTRAN is CALL 
OUTlOO (TIME), or in DAP 


CALL OUTlOO 

DAC TIME 
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R '■'O 1 
n n 2 
0003 

0 O 000 

0 000000 

FPOU 

SUBR 

PEL 

DAC 

POOH 

00001 

0 10 00000 


CALL 

coos 

00002 

000003 

DEC! 

OCT 

OOP'S 

00003 

0 00 00000 

ARG 

P7E 

C OO "7 

OOOO 4 

0 00 00000 

SCAL 

P2E 

n rvno 

00005 

0 00 00000 

PREC 

PZE 

''Of' Q 

0 0 00 6 

140040 


CPA 

r o i o 

0 0 0 0 7 

0 04 00166 


ST A 

"01 1 

O 0010 

0 04 00173 


STA 

0012 

0001 1 

0. 02 00202 


LD A 

0013 

000 1 2 

0 04 00170 


STA 

oom 

000 13 

0 04 00171 


STA 

001 6 

00014 

0 04 00172 


STA 

0 016 

00 O is 

0 02 00206 


LP A 

00 1 7 

00016 

0 04 00167 


STA 

0.0 IP 
O 0 1 o 

00017 

0 35 00003 

* 

LDX 

A AAA 

00020 

1 02 00001 


IDA 

0021 

00021 

000201 


IAB 

A A A A 

00 O 22 

1 02 00000 


L DA 

A A 2 0 

00023 

OO0007 


DBL 

A a 24 

00024 

0 04 00174 


DST 

0 0 26 

0 0025 

101400 


SMI 

A 026 

00026 

0 01 00033 


JMP 

0027 

00027 

0 12 00166 


IRS 

A A 2 Q 

0 A 030 

0 07 00174 


DSR 

a 0 20 

00^3 1 

0 07 0C174 


DSB 

oo 3 A 

A 0 A 3 2 

0 04 00174 


DST 

0031 

0032 

00033 

000005 

* 

ARGP 

SGL 

a a 3 3 

00 0 3 4 

-0 02 00004 


LD A* 

0 0 34 

00O35 

1010 40 


SNZ 

0 0 3 6 

00*36 

0 01 00051 


Of HP 

o o .3 6 

0O037 

101400 


SMI 

ao 3 7 

A 0 04 0 

0 01 00144 


JMP 

PAIR 

AO 04 1 

0 03 00210 


ANA 

0030 

A A A4 2 

0 05 00201 


ERA 

A A 4 A 

A A A 4 3 

0 04 00046 


STA 

0 041 

0 A A 4 4 

A A A A A 7 


DBL 

A A /I A 

00045 

0 02 OC174 


DID 

A A U 3 

AO A46 

0 0 a OOCOP 

INS2 

*** 

0 04 4 

AO 04 7 

0 04 00174 


DST 

A A US 

00 o 60 

000005 


SGL 

0046 

A A 4 A 

A A AS 1 

0 02 op 1 73 

* 

SDON 

LD A 

A AU p 

00052 

0400 60 

NEXT 

LRL 

A AU 0 

AAA 5 3 

0 17 00207 


DIV 

0 060 

00054 

0 04 00173 


STA 

0 OS 1 

0 0 A 5 5 

000 20 1 


IAB 

A 0 5 A 

00056 

0 06 00176 


ADD 

0 A 6 3 
A a s 4 

00057 

0 00 20 1 

* 

IAB 

A ASS 

A 006 0 

0 02 00167 


LD A 

A A S f5 

00061 

0 07 00205 


SUB 

0 A 67 

00062 

0 04 00167 


STA 


EPOOTC 

** 

E$AT. 

3 


SGFL SIGN FLAG 

INT 

BLBL 

STR 

STR ♦ 1 

STR* 2 OVERLAYS CNTR 

SIX 

PPTR 

AFG 

1,1 

0,1 

FRAC 

ARGP 

SGFL 

FRAC 

FRAC 

FRAC 


SCAL 

SOON 

TPLS 

OC77 

RSI 

INS2 

FP AC 

FRAC 


INT 

16 

TEN 

TNT 

FRET 


PPTR 

ONE 

PPTR 
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0058 

00063 

0404 77 


LGR 

1 

0 059 

00064 

0 04 00000 


STA 

0 

0060 

00065 

1 02 00170 


LDA 

STR, 1 

0061 

00066 

100001 


SRC 


0062 

00067 

000201 


TAB 


0063 

00070 

0414 70 


LGL 

8 

""64 

00071 

0402 70 


LRR 

8 

0068 

00072 

1 04 00170 


STA 

STR, 1 

0066 



* 



M 67 

00 07 3 

0 02 00173 


LDA 

INT 

^068 

00074 

100040 


SZE 


0 06 0 

00075 

0 01 00052 


JHP 

NEXT 

0070 

00076 

0 02 00166 


LDA 

SG PL 

0 071 

"0077 

101040 


SNZ 


0072 

00100 

0 01 00104 


JHP 

SOOT 

0073 

00101 

0 02 00170 


LDA 

STR 

0074 

00102 

0 05 00204 


ERA 

NEGS 

0075 

00 10 3 

0 04 00170 


STA 

STR 

0076 

00104 

0 10 00000 

sotit 

CALL 

XNOU A 

0077 

00 105 

0 00" 170 


DAC 

STR 

007B 

00106 

0 000206 


DAC 

SIX 

0 079 

00 in 7 

000000 


OCT 

0 

0080 



* 



008 1 

00110 

-0 32 00O05 


LDA* 

PREC 

009 2 

00111 

140407 


TC A 


0 08 3 

00 112 

101400 


SMI 


0084 

00113 

-0 01 0""00 


JHP* 

FPO'1 

0086 

00114 

0 04 00172 


STA 

CNTR 

0 08 6 

00115 

0 10 00000 


CALL 

X10D 

0087 

00116 

0 000203 


DAC 

DOTC 

0088 



* 



0089 

00117 

0 02 00175 

FLP 

LDA 

LOW 

0 09° 

00120 

0 16 00207 


MPY 

TEN 

0 r 9 1 

oni21 

000007 


DBL 


0092 

"0122 

0 04 00166 


DST 

TEMP 

009 3 

00 123 

0 02 00174 


DLD 

HIGH 

0 094 

"0124 

0 16 00207 


MPY 

TEN 

n 095 

00 125 

0 06 00176 


DAD 

FRHT 

f 096 

00126 

0 13 00173 


IMA 

DGT 

0097 

00127 

140040 


CRA 


0098 

00 1 30 

000201 


I AB 


0099 

00 131 

0 06 00166 


DAD 

TEMP 

0 1 00 

00132 

100O01 


SRC 


0101 

"0133 

0 12 00173 


IRS 

DGT 

0 102 

00134 

140100 


SSP 


0 103 

0" 135 

0 04 00174 


DST 

FR AC 

0104 

"0136 

000005 


SGI. 


0105 

C 0 1 3 7 

0 10 00000 


CALL. 

X10U 

0106 

00140 

0 0"0173 


DAC 

DGT 

0 107 

0014 1 

0 12 00172 


IRS 

CNTR 

0 1 C 8 

00142 

0 01 00117 


JMP 

FI P 

0109 

0014 3 

-0 01 90000 


JHP* 

FPOO 

OHO 



* 



0111 

00144 

0 05 00200 

TPLS 

ERA 

1ST 

0112 

00145 

141206 


AO A 


0113 

00146 

0 04 00153 


STA 

IN S 1 

0114 

00147 

0 35 00002 


LDX 

DEC3 
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MICROCOMP TELECOMMUNICATED DATA 



DDP 

-516 ASSEMBLY 

LISTING 


Oils 

00150 

140040 


CRA 


0 116 

00151 

000201 


IAB 


0 117 

00157 

1 02 00172 

TPLP 

LD A 

INT-1 , 

oils 

00153 

0 00 00000 

INS 1 

** + 


01 is 

00154 

140100 


SSP 


012 n 

00 155 

1 13 00172 


IMA 

INT- 1, 

A 121 

00156 

000201 


IAB 


0 122 

00157 

0 02 00000 


LD A 

0 

0 12 0 

00160 

0 07 0C205 


SUB 

ONE 

0124 

0 0 1 6 1 

0 04 00000 


STA 

0 

o 12S 

00162 

100040 


SZE 


0 126 

00163 

0 01 00152 


J HP 

TPLP 

0 127 

00 164 

0 01 00051 


JMP 

SDON 

0 128 



* 



oi2S 



* 



0 1 70 



* 



0 13 1 

00166 

000700 

TEMP 

DBP 

0 


00 167 

000000 




0 132 

00170 

000000 

STR 

D BP 

0 


00171 

000000 




0 133 

00172 

000000 

CNTR 

BSZ 

1 

0 134 

00 173 

000000 

INT 

BSZ 

1 

o 1 3 S 

00174 

000000 

FRAC 

DBP 

0 


00175 

000000 




0 136 


000173 

DGT 

EOU 

INT 

0137 


000174 

HIGH 

EOO 

FRAC 

0 138 


000175 

LOW 

EQU 

FRAC* 1 

0 139 


0OQ166 

SGFL 

EQU 

TEM? 

0 1 uo 


000167 

PPTR 

EQU 

TEMP* 1 

0 141 



* 



0 147 

00176 

700260 

FRMT 

OCT 

260,0 


00177 

O00000 




0 143 

00 200 

0411 77 

LSI 

LLS 

1 

0 144 

0020 1 

0401 00 

RSI 

LRS 

0 

0145 

00202 

120240 

BIBL 

OCT 

120240 

0 146 

00 20 3 

000256 

DOTC 

OCT 

256 

0 147 

00 20 4 

006400 

NEGS 

OCT 

6400 

0149 



* 



0149 

00205 

000001 

ONE 

DEC 

1 

0 150 

00206 

000006 

STX 

DEC 

6 

0151 

00207 

000012 

TEN 

OCT 

12 

0 152 

00 2 I 0 

000077 

0C77 

DEC 

63 

0153 

0021 1 

000OO0 

ZEES 

OCT 

0 

0 154 




FIN 


0 1^5 


. 

* 



0 156 



* 



0 157 




STJBR 

OUTIOO 

0 158 




PEL 


0 150 

00212 

0 000000 

0UT1 

DAC 

** 

0 160 

00213 

0 10 00000 


CALL 

ARG$ 

0161 

00214 

-0 000212 


DAC* 

0IJT1 

0 162 

00215 

1 02 00001 


LD A 

1,1 

0 16 3 

00216 

700201 


IAB 


0 164 

00217 

1 02 00000 


L DA 

0 , 1 

0165 

00220 

7 17 00240 


DIV 

D100 

0 166 

0022 1 

0 On 00236 


STA 

OTMP 

0 167 

00222 

140040 


CRA 
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MTCROCOMP TELECOMMUNICATED -DATA 
DDP-516 ASSEMBLY LISTING 

0 163 oa 2 23 000201 TAB 

0169 00224 0 17 00 240 DIV D100 

017" 00225 141206 AO A 

0171 00226 0 04 00237 STA OTHP+1 

0172 00227 0 10 00000 CALL FPOTJTC 

0170 00230 0 000236 DAC OTNP 

0174 00231 0 OO0242 DAC =15 

0176 00232 0 000241 DAC =2 

0176 00233 990000 OCT 0 

017-7 00234 0 12 00212 IPS OTTT1 

01 78 00236 -0 01 00212 .IMP* OUT1 

017 9 * 

0 130 0 o 2 3 6 900000 OTMP BSZ 2 

00237 000009 

0181 00249 000144 D100 DEC 100 

0132 00241 000002 END 

00242 000017 
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PROGRAM NAME 
SOURCE: SXOU 
BINARY: BXOU 

ENTRY POINTS (location): IOMODE (’10604), XlOU (’10636), 

XNOU 010642), XNOUA (’10646), XOOCT 010652) 

GENERAL DESCRIPTION: 

This subroutine is really an intermediary to the output calls to either 
the FORTRAN teletype output routines (TlOU, TNOU, TNOUAand TOOCT), 
or the CRT output routines (ClOU, CNOU, CNOUA and COOCT). The 
subroutine ALPO (see documentation) first calls IOMODE with the argument 
0 if it wants to output on the teltype or 1 if it wants to output on the CRT. 
From then on, every call to XlOU, XNOU or XOOCT will be rerouted to 
look like the proper call to either the teletype or CRT routines. 


a 
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MICBOCOMP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


0^01 





SUBR 

IOMODE 

070 ? 





SUBR 

X10U 

0003 





SUBR 

XNOU ,XNO 

7074 





SUBS 

XNOUA, XNOA 

ooos 





SUBP 

XOOCT 

0006 

00 °^ 




* 

REL 


O^Ofl 

00000 

0 

000000 

IOKO 

DAC 

** 

0 779 

OOno 1 

n 

35 00000 


LDX 

IOMO 

O 0 1 o 

00002 

-1 

02 OOCOO 


LDA* 

0 , 1 

0 Oil 

0000 3 

0 

35 00063 


LDX 

=0 

0032 

00004 

100040 


SI F 


001 1 

00005 

0 

35 00062 


LDX 

= 4 

0034 

00006 

000007 


DBL 


003 6 

CO 007 

1 

02 0C022 


DLD 

ADL, 1 

O 036 

007 1 A 

0 

04 00016 


DST 

LST 

7037 

OOOl 1 

1 

07 70024 


DLD 

ADL+2, 1 

7fti« 

00012 

0 

04 00020 


DST 

LST+2 

0030 

COO 3 3 

00OC05 


SGL 


0077 

00 A 3 4 

0 

12 00000 


IRS 

IOMO 

0021 

0022 

000 1 6 

- 7 

01 ooooc 

* 

JMP* 

IOMO 

00 73 

00016 

ooooro 

LST 

DBP 

0 


OO 037 

000000 




0 024 

0002 0 

000000 


DBP 

0 


AA 02 1 

000000 




0 0 2 6 

0 0022 

0 

0000 00 

ADL 

X AC 

T10U 

0026 

OO023 

0 

CONOCO 


XAC 

TNOU 

0 027 

0 0 0 24 

0 

oococo 


X AC 

TNOUA 

0 0 26 

0 ° a 25 

7 

ooooco 


XAC 

TOOCT 

0029 

00 a 26 

7 

600000 


XAC 

C10U 

0 0 3 A 

00C27 

0 

000000 


XAC 

CNOU 

r 031 

OO030 

7 

777000 


XAC 

CNOU A 

0 032 

7073 

000 3 1 

0 

000000 

♦ 

XAC 

COOCT 

00 34 




♦ 



0036 

0003 2 

0 

000000 

xi on 

DAC 

** 

0 036 

0003 3 

0 

35 00063 


IDX 

= 0 

0037 

0 0 A 3 4 

0 

02 00032 


LDA 

X10U 

0 0 3 9 
0030 

0 on 35 

0 

01 00051 

* 

JMP 

CO M N 

on no 

0 0 0 ? 6 

0 

000000 

XNO 

DAC 

** 

0043 

00037 

0 

35 00061 


IDX 

= 1 

0042 

OO04O 

0 

02 O0036 


LDA 

XNO 

0043 

0044 

CO 0 4 3 

0 

01 00051 

* 

JMP 

COMN 

0046 

DC A 4 2 

A, 

OOCOOO 

XNOA 

DAC 

** 

0046 

00043 

0 

35 OC060 


LDX 

= 2 

0047 

00044 

0 

02 00042 


LDA 

XNOA 

0 046 
7740 

OO745 

0 

01 00051 

* 

JMP 

COMN 

OosO 

COO 46 

0 

000000 

xooc 

DAC 

** 

7 0 61 

00047 

7 

35 00067 


LDX 

= 3 

0062 

0063 

000 50 

0 

02 00046 

* 

LDA 

XOOC 

0064 

0 0 A 5 3 

- 1 

04 00016 

COM N 

ST A* 

1ST, 1 

0 066 

00052 

1 

02 Onoi 6 


LDA 

LST, 1 
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M TC R OCH MP TELEC CM HUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0086 

00083 

141206 


AO A 


->^S7 

0 0 OS 4 

0 04 00056 


STA 

TEMP 

npso 

oooss 

-0 01 00056 

* 

JMP* 

TEMP 

•■> r\ r, A 

00 0 5$ 

000000 

TEMP 

BSZ 

1 

0 *> p, 1 
0^63 

0 0 0 =, 7 

000003 

* 

END 



nooso 

000002 





^ons 1 

O00001 





0 0 0 p, 2 

000004 





O0OS3 

000000 
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PROGRAM NAME 
SOURCE: SDGS 
BINARY: BDGS 

ENTRY POINTS (location): DGSRD ('13311), DGSWRT ('13250) 
GENERAL DESCRIPTION: 


These two subroutines are for reading and writing words on the digistor 
tape. The SIRU system only writes on the digistor tape. A fortran statement; 
CALL DGSWRT (ARG, 52), or the DAP instructions. 


CALL 

DGSWRT 

DAC 

ARG 

DAC 

= '64 

OCT 

0 


when executed, will cause this subroutine to write a heading, 52 words of 
information starting with ARG, and one word of parity on the digistor tape. 
It will then return. 
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MICROCOMP TELECOMMUNICATED DATA 



DDP- 

•516 ASSEMBLE 

LISTING 


000 1 




REL 


0002 




SUBR 

DGSRD 

0003 




SHBR 

DGSWRT 

0004 



* 



0005 

00000 

0 000000 

DGSW 

DAC 

** 

0006 

00001 

0 10 00000 


CALL 

F$ AT 

0007 

00002 

000002 


OCT 

2 

0 008 

00003 

0 00 00000 

WARY 

PZE 


0009 

00004 

0 00 00000 

WCNT 

PZE 


0010 

00005 

-0 02 .00004 


LD A* 

WCNT 

0011 

00006 

140407 


TC A 


0012 

00*07 

101400 


SMI 


0013 

000 10 

-0 01 00000 


JMP* 

DGSW 

0014 

0001 1 

0 04 00004 


STA 

WCNT 

0016 

00012 

140040 


CPA 


0016 

00013 

0 04 00143 


STA 

ACC 

0017 

O0014 

0 02 00145 


L DA 

= •201 

0010 

00015 

0 10 00127 


J ST 

WRT 

0019 

000 16 

0 10 00127 


J ST 

WRT 

0020 

00017 

0 02 00144 


LD A 

= • 177777 

0021 

000 20 

0 10 00127 


J ST 

WRT 

0022 

00021 

0 10 00127 


J ST 

WRT 

0023 



* 



0024 

00022 

-0 02 00003 

WLTJP 

LD A* 

WAPY 

0025 

00023 

141340 


ICA 


0026 

00024 

0 10 00127 


J ST 

WRT 

0027 

00025 

141340 


ICA 


0 0 28 

00026 

0 19 00127 


JST 

WRT 

0029 

00027 

0 10 00122 


JST 

PPTY 

0030 

00030 

0 12 00003 


IPS 

WARY 

00 31 

0003 1 

0 12 00004 


TPS 

WCNT 

0032 

00032 

0 01 00022 


JMP 

WLOP 

0033 



* 



0034 

OO033 

0 02 00143 


LD A 

ACC 

0035 

00034 

141340 


ICA 


0 0 36 

OOC35 

0 10 00127 


JST 

WRT 

0037 

00036 

141340 


ICA 


0038 

0O037 

0 10 00127 


JST 

WRT 

0039 

000 40 

-0 01 00000 


JMP* 

DGSW 

004'' 



* 



0041 



* 



0042 



* 



0043 

no 0 (4 1 

0 000090 

DGSR 

DAC 

* + 

0044 

00042 

0 10 00000 


CALL 

FIAT 

0045 

0004 3 

000002 


OCT 

2 

0046 

00044 

0 00 00000 

RAPY 

PZE 


0047 

00045 

0 00 ocooo 

FCNT 

PZE 


0048 

00046 

-0 02 00045 


LD A* 

RCNT 

0049 

00047 

140407 


TCA 


0050 

00050 

101400 


SMI 


0051 

00051 

-0 01 00041 


JMP* 

DGSR 

0052 

00052 

0 04 00045 


STA 

RCNT 

0053 

00053 

140040 


CRA 


0054 

^0054 

0 04 00143 


STA 

ACC 

^955 

00055 

140040 

FLOK 

CPA 


0056 

00056 

0 10 00135 


JST 

RD 

0057 

00057 

0 05 00145 


ERA 

= *201 
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MICRCCOMP TELECOMMUNICATED BATA 



DDP- 

516 ASSEMBLY 

LISTING 


0058 

00060 

100040 


SZE 


008P 

00061 

0 01 00055 


JMP 

RLOK 

*060 

00*62 

140040 


CPA 


0061 

0 o 0 6 3 

0 10 00135 


J ST 

RD 

0062 

00064 

0 05 00145 


ERA 

= •201 

*06 3 

00*68 

100040 


SZE ' 


0064 

00066 

0 01 00055 


JMP 

RLOK 

0068 

00067 

1400 4C 


CRA 


0066 

0007* 

0 1* 00135 


JST 

RD 

0067 

0007 1 

141340 


ICA 


0068 

00072 

0 10 00135 


JST 

RD 

0069 

00073 

0 05 00144 


F,P A 

=• 177777 

0070 

00074 

100040 


SZE 


0071 

00075 

0 01 00055 


JMP 

RLOK 

0072 



* 



0073 

00076 

140040 

RLUP 

CRA 


0 074 

00077 

0 10 00135 


JST 

RD 

0078 

00100 

141340 


TCA 


0*76 

90101 

0 10 00135 


JST 

RD 

0077 

00 102 

-0 04 00044 


ST A* 

RARY 

0078 

00103 

0 19 00122 


JST 

PRTY 

0079 

0*104 

0 12 00044 


TRS 

RARY 

0 080 

00108 

0 12 00045 


IRS 

RCNT . 

0*8 1 

*0106 

0 01 00076 


JMP 

PI UP 

0082 



♦ 



0083 

00107 

140*40 


CRA 


0084 

00110 

0 10 00135 


JST 

RD 

0088 

00111 

141340 


ICA 


0088 

00112 

0 10 00135 


JST 

RD 

0087 

00113 

0 05 00143 


ERA 

ACC 

0088 

00114 

101040 


SNZ 


0009 

00115 

0 01 0C120 


JMP 

*♦3 

0090 

00116 

140040 


CPA 


009 1 

00117 

100000 


SKP 


0*92 

00120 

141206 


AO A 


0093 

00 121 

-0 01 00041 


JMP* 

DGSP 

0094 



* 



0098 



* 



0096 



* 



0097 

00122 

0 oooooo 

PRTY 

DAC 

** 

0 09 8 

00123 

0 05 0*143 


ERA 

ACC 

0099 

00124 

0416 77 


ALB 

1 

0100 

00125 

0 04 00143 


STA 

ACC 

0101 

00126 

-0 01 00122 


JMP* 

PPTY 

0102 



* 



0103 

00127 

0 oooooo 

WRT 

DAC 

** 

0 104 

00130 

14 0002 


OCP 

•2 

0108 

00 13 1 

74 0002 


OTA 

• 2 

0106 

00132 

0 01 00130 


JMP 

*— 2 

0107 

00133 

14 0102 


OCP 

• 102 

0 108 



♦ 



0 109 

00134 

-0 01 00127 


JMP* 

WRT 

0110 



* 



0111 

0*135 

0 OOOOOO 

RD 

DAC 

** 

0 112 

00136 

14 0001 


OCP 

• 1 

0113 

*0 1 37 

54 0001 


INA 

• 1 

0114 

00140 

0 01 00137 


JMP 

*-1 
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MICROCOMP TELECOM HOI ICATED DATA 
DDP-516 ASSEMBLY LISTIHG 


0115 

00141 

14 0101 


OCP 

* 101 

0116 

0117 

00142 

-0 01 00135 

* 

JHP* 

RD 

0118 

00143 

000000 

ACC 

BSZ 

1 

0110 

0 120 

00144 

177777 

• 

END 



00 145 

000201 





42 



PROGRAM NAME 
SOURCE: READ 
BINARY: BREAD 

ENTRY POINTS (location): ICINIT 001656), INPIP 001731), 

INGYRO 001764) 

GENERAL DESCRIPTION: 

The subroutine ICINIT will set up the gyro and PIPA interface to 
interrrupt the main program every 5 milliseconds. The first interrupt 
will be a PIPA interrupt and will occur when the PIPA counters have 10 
milliseconds of data in them. The next interrupt will be a gyro interrupt 
5 milliseconds later and will occur when the gyro counters have 10 
milliseconds of data in them. From then on every 5 milliseconds the 
interrupts will occur alternately. ICINIT will also read the initial interpol- 
ator values of the gyros. 

The subroutine INPIP will read the 6 PIPA pulse counters and store 

_ 0 

them in the locations indicated by the listing with a scaling of 2 pulses. 
For example, an octal 000400 represents one pulse or 4 cm/ sec of AV. 

The subroutine INGYRO will read the 6 gyro pulse counters, subtract 
the old interpolator values, add the new interpolator values and store them 

_ g 

in the locations indicated by the listing. These are also scaled at 2 

- 1 5 

pulses. For example, an octal 000400 represents one pulse or 7 x 2 
radians. 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 



0001 




SUBR 

ICINIT 


0*02 




REL 



f 003 

00000 

0 000000 

ICIN 

DAC 

** 


0004 

00001 

14 0047 


OCP 

•47 

DISABLE GYRO 

0005 

00002 

14 0057 


OCP 

•57 

DISABLE PIP 

0006 

00003 

14 0077 


OCP 

•77 

RESET PRESET' 

00*7 

00004 

0 02 00210 


L DA 

= 47 


00 03 

00005 

74 0077 


OTA 

•77 

SET PRESET 

0*00 

00006 

0 01 00005 


JMP 

*-1 


0010 

00007 

14 0027 


OCP 

•27 

CLR 6 ENB CLOCK 

0011 

000 10 

34 0207 


SKS 

•207 

WAIT FOR PULSE 

0*12 

00* 1 1 

0 01 00010 


J HP 

*-1 


0013 

00012 

0 400 56 


LRL 

18 

WAIT 10 MICSEC. 

0014 

0001 3 

14 0 C 17 


OCP 

• 17 

CLR AND ENABLE PIPA 

0015 

00*14 

0 35 00207 


LDX 

=-24 


0*16 

0*015 

14 0027 

WLDP 

OCP 

•27 

CLR S ENB CLOCK 

0017 

00*16 

34 0207 


SKS 

•207 

WAIT FOR PULSE 

*013 

00017 

0 01 00016 


J HP 

*-1 


00 13 

000 20 

0 12 00000 


IRS 

0 


r\o 2* 

00*21 

0 01 00015 


JMP 

WLUP 

WAIT FOR 22 

*021 

00*22 

14 *027 


OCP 

•27 


**22 

00*23 

14 0067 


OCP 

•67 

DISABLE CLOCK 

*023 

*0*24 

0400 56 


LRL 

18 

WAIT 18 MICSEC. 

0*24 

00*25 

14 *007 


OCP 

•7 

ENABLE GYRO 

0025 

*0026 

34 0307 


SKS 

•307 

SKIP IF I NTRPLTP REDY 

*0 2* 

0*0 27 

0 01 00026 


JMP 

*-1 


0*27 



* READ INITIAL INTERPOLATOR 

DATA 

0 *28 

0**30 

54 1307 


INA 

•1307 


0 023 

*003 1 

0 01 00030 


JMP 

*- 1 


0030 

**0 32 

0 04 00430 


STA 

•4 30 

OLD INTRPPLTR DATA 

**3 1 

*0033 

54 1317 


INA 

• 1317 


**3 2 

*0*34 

0 01 00033 


JMP 

*-1 


0*33 

00035 

0 04 00431 


STA 

' 431 


*034 

0**36 

54 1327 


INA 

• 1327 


0*35 

00*37 

0 01 00036 


JMP 

*- 1 


*03 6 

0**40 

0 04 00432 


STA 

•432 


0037 

0*04 1 

54 1337 


INA 

• 1337 


0*33 

0*042 

0 01 00041 


JMP 

*-1 


0039 

00*43 

0 04 00433 


STA 

• 433 


ooy o 

0*044 

54 1347 


INA 

•1347 


0041 

0*0 45 

* 01 00044 


JMP 

*-1 


0042 

00046 

0 04 00434 


STA 

•434 


*043 

00047 

54 1357 


INA 

• 1357 


0 0 4 U 

00*50 

0 *1 00047 


JMP 

*-1 


0045 

***81 

0 04 00435 


STA 

• 435 


**46 

**052 

-0 01 00000 


JMP* 

ICIN 


*047 



♦ 




*043 



♦ 




*049 



* 




0*50 




SDBR 

INPIP 


0*51 




REL 



*052 

0005 3 

0 0*0000 

INPI 

DAC 

** 


**53 

00054 

54 1107 


INA 

• 1107 


00 54 

00*55 

0 01 00054 


JMP 

*-1 


0055 

*0056 

141240 


ICR 



*056 

0*057 

0 04 00600 


STA 

PIPA 


0057 

00*60 

54 1117 


INA 

• 1 1 17 
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HICROCOHP TELECOHMJNICATED DATA 



npp- 

516 ASSEMBLY 

LISTING 


0058 

00061 

0 01 0C060 


JHP 

*-1 

0059 

00062 

141240 


ICP 


"060 

00063 

" 04 00602 


STA 

PI PB 

"Of 1 

0"0f 4 

54 1127 


IN A 

• 1127 

"062 

00065 

o "1 00064 


JHP 

*- 1 

"Of 9 

00066 

141240 


ICR 


"064 

"0067 

0 04 00604 


STA 

PIPC 

0065 

00 07 0 

54 1137 


TNA 

• 1 137 

OOff 

00"7 1 

0 01 00070 


JHP 

*- 1 

00f7 

00072 

141240 


ICJ> 


0069 

00073 

0 04 00606 


STA 

PI PD 

0069 

"0"7 4 

54 1147 


TNA 

• 1147 

007" 

"0075 

0 "1 0C074 


JHP 

*- 1 

0 07 i 

0 "" 7 6 

141240 


ICR 


0072 

00077 

0 04 00610 


STA 

PIPE 

0073 

0010O 

54 1157 


TNA 

* 1 1 57 

"0 7 4 

"0101 

0 01 00100 


JHP 

*-1 

0 0 7f 

00 1" 2 

141240 


ICR 


0076 

00103 

" 04 00612 


STA 

PIPP 

0 " 77 

00 104 

14 "017 


OCP 

• 17 

0078 

0 010 5 

-0 "1 00053 


JHP* 

INPI 

0070 



* 



008" 



* 



0081 


000600 

PTP A 

E0O 

•600 

0"82 


000602 

PTP3 

eod 

PIPA«-2 

00 83 


000604 

PIPC 

EQO 

PTPB*2 

0084 


000606 

PI PD 

EQU 

PIPC+2 

0085 


000610 

PIPE 

EQtl 

PIPD+2 

0086 


000612 

PI PF 

E 00 

PTPE*2 

"087 



* 



0088 



* 



0089 




SUBR 

INGYRO 

0090 




REL 


0091 



* 



0092 

00106 

0 oooooo 

INGY 

DAC 

** 

00 93 

00 107 

54 1 C 07 


TNA 

• 1007 

0094 

00110 

0 01 00107 


JHP 

*-1 

0095 

""111 

141240 


ICR 


0096 

"0112 

0 07 00430 


SUB 

•430 

0097 

001 13 

0 04 00400 


STA 

GYRA 

0098 

"0114 

54 1017 


TNA 

• 1017 

"099 

C" 1 15 

0 01 00114 


JHP 

*- 1 

0100 

001 16 

141240 


ICR 


0101 

00 117 

0 07 00431 


SUB 

• 431 

"102 

"0120 

0 04 00402 


STA 

GYRB 

0103 

0"121 

54 1027 


IN A 

« 1027 

0104 

"0122 

0 01 00121 


JHP 

*-1 

0105 

""123 

141240 


ICR 


0 106 

00124 

" 07 00432 


St!B 

•432 

0 107 

00 125 

0 04 00404 


STA 

GYRC 

C 1 08 

00126 

54 1037 


I NA 

•1037 

0 1 09 

00127 

0 01 00126 


JHP 

*- 1 

0110 

00130 

141240 


ICR 


0111 

"0 13 1 

0 07 00433 


SOB 

• 433 

"112 

00132 

0 04 00406 


STA 

GYRD 

0113 

00 133 

54 1047 


INA 

• 1047 

0 114 

00134 

0 01 00133 


JHP 

*- 1 


CLEAR AND 


ENABLE 
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MTCROCOMP 

TELECOMMUNICATED DATA 




DDP 

-516 ASSEMBLY 

LISTING 



''IIS 

00 135 

141240 

ICR 



01 16 

00 136 

0 07 00434 

SUB 

• 434 


0117 

00137 

0 04 00410 

STA 

GYRE 


Oils 

00 140 

54 1057 

INA 

•1057 


0119 

00141 

0 01 00140 

JMP 

*- 1 


0 120 

00 142 

141240 

ICR 



0121 

00143 

0 07 00 4 35 

SUB 

•4 35 


n i 22 

0 0 14 4 

0 04 00412 

STA 

GYRE 


012 7 

00 145 

14 0007 

OCP 

•7 

CLFAR AND ENABLE 


012 4 * READ INTERPOLATORS 


0120 

00 146 

34 0307 


SKS 

•307 

0126 

0 014 7 

0 01 00146 


JMP 

*- 1 

0127 

00 150 

54 1307 


INA 

• 1307 

0 1 29 

00 151 

0 01 00150 


JMP 

*- 1 

0129 

0 015 2 

0 04 OC 4 30 


STA 

•430 

0 1 30 

00 153 

0 06 00400 


ADD 

GYRA 

0 13 1 

0 0154 

0 04 00400 


STA 

GYRA 

0 132 

0 0 15 5 

54 1317 


INA 

• 1317 

0137 

00 156 

0 01 00155 


JMP 

*-1 

0134 

00 157 

0 04 00431 


STA 

•431 

0 1 3 c 

00160 

0 06 00402 


ADD 

GYRB 

0 136 

00 16 1 

0 04 00402 


STA 

GYRB 

013^ 

00 16 7 

54 1327 


INA 

• 1327 

0 133 

0 0 10 3 

0 01 00162 


JMP 

*- 1 

0 104 

00 164 

C 04 0C432 


STA 

• 432 

0 1 40 

00 165 

0 06 00404 


ADD 

GYRC 

014 1 

00166 

0 04 00404 


STA 

GYRC 

9142 

00 167 

54 1337 


INA 

• 1337 

0143 

00 170 

0 01 00167 


JMP 

*-1 

0 14 4 

00 171 

0 04 00433 


STA 

•433 

0 145 

00172 

0 06 00406 


ADD 

GYRD 

0 146 

00 17 3 

0 04 00406 


STA 

GYRD 

0 147 

00 174 

54 1347 


INA 

• 1347 

0143 

00 175 

0 01 00174 


JMP 

*-1 

0 14Q 

00 176 

0 04 00434 


STA 

• 434 

0150 

00 177 

0 06 90410 


ADD 

GYRE 

0 16 1 

00200 

0 04 00 4 1 0 


STA 

GYRE 

0 152 

0 0 20 1 

54 1357 


INA 

* 1357 

0 15 7 

002 0 2 

0 01 00201 


JMP 

*-1 

0 164 

0 0 20 3 

0 04 00435 


STA 

• 435 

0 1 S s 

0 0 20 4 

0 06 00412 


ADD 

GYRE 

0 156 

0 0 ?0 5 

0 04 00412 


STA 

GYRE 

r 157 

OO?06 

-0 01 00 106 


JMP* 

INGY 

015° 



* 



.0 1 59 



* 



016 0 


000400 

GYRA 

EQU 

•400 

0161 


000402 

GYPB 

EQU 

GYRA+2 

0162 


000404 

GYRC 

EQU 

GYPB+2 

C 163 


000406 

GYRD 

EQU 

G YRC+2 

0 164 


000410 

GYRE 

EQU 

GYRD *2 

0166 


000412 

GYRP 

EQU 

GYRE*2 

0166 



* 



0167 

00207 

177750 


END 



00210 

000057 
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PROGRAM NAME 
SOURCE: ACOM 
BINARY: BACOM 

ENTRY POINTS (location): ACOM 003274) 
GENERAL DESCRIPTION: 


This subroutine compensates the accelerometers for scale factor, 
bias and two misalignments, SO and SP, expressed as misalignments toward 
the negative X, Y and Z axes. Considering just the A accelerometer, the 
following equations are programmed. 

A A PC = A A PC + AABD + -4-AASF AAPC 

2 6 

where 

AAPC is accelerometer A's pulse count 
AABD is accelerometer A's bias 


and 


AASF is 2 b X accelerometer A's A scale factor 


then 


AAPC = -^(DVXB AAMX + DVY'B AAMY + DVZB AAMZ) 
2 9 


DVXB, DVYB, DVZB are the AV outputs in the body frame and 

g X » y * Z 

AAMX, Y, Z are 2 X accelerometer A's misalignments in the negative X, 
Y, Z directions. See listing for coding. 
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HICPOCOHP TELECOMMUNICATED DATA 
DDP-5 1 6 ASSEMBLY LISTING 


noc 1 

POP 2 

0903 OOPPP 
o o o 4 n n n o i 

nq o 9 0 9 o 0 2 

P0P6 P 0 P 0 3 
pop? 00004 
POOR P P P P 5 
ono q poop 6 
001 P OP 007 
PP 11 nn^io 
p 0 1 2 PPP 11 
0 p 1 7 00 p 1 2 
PO 1 4 OOP 13 
0915 pr PI 4 
P 0 1 6 COP 15 
0017 PC 01 6 
o 0 1 o 00 0 17 
0 o 1 9 00 rt 2 0 

oo 2 r ooo2 1 
0021 PPC 22 
002 ? 0 0 9 23 

0023 00024 

0024 0 P p 2 5 

0025 00 026 

0026 C0 n 27 

0027 0PP3P 
0025 0 P o 3 1 
002° OOP 32 
0030 P 0 P 3 3 
'"'031 OP 034 
0 o 3 2 POP 35 
o 0 3 3 OP 0 36 
0034 0P037 
0 03 5 0 0 04 0 
0 0 36 o C o 4 1 
O n 37 00042 
0038 0004 3 
3030 00044 
0040 0^045 

0 0 41 0 0 o 4 6 

0042 0 0 0 4 7 
p 04 3 00?5P 

0044 POP 5 1 
pp45 00052 
p o 4 0 0 00 5 3 
0047 OP 054 

0043 00055 

0049 0P056 

0050 00057 

0051 00060 

0052 90061 
A 953 00062 

0054 00063 

0055 o 0 064 

0056 00065 

0057 00066 


0 02 00600 
0 16 00700 
000007 
0401 72 
0 06 00706 
0 06 00600 
0 04.00600 
0 02 00602 
0 16 00701 
P401 72 
0 06 0C71C 
0 06 00602 
0 04 OC 602 
0 02 00604 
o 16 00702 
0401 72 
0 06 00712 
0 06 00604 
0 04 00604 
0 02 00606 
0 16 00703 
0401 72 
0 06 00714 
0 06 00606 
0 0 4 OC 60 6 
0 02 0C610 
0 16 00704 
0401 72 
P 06 OC 7 16 
0 06 00610 
0 04 00610 
0 02 00612 
0 16 00705 
0401 72 
0 06 OO720 

p 06 00612 

0 04 00612 
0 02 00614 
0 16 00722 
0 04 00166 
0 02 0C614 
0 16 00723 
0 04 00170 
0 02 00614 
0 16 00724 
p 04 00172 
0 02 00614 
0 16 00725 
n 04 00174 
0 02 00614 
0 16 00726 
0 04 00176 
0 02 00614 
p 16 00727 


ACON 

** 

A APC 
MPY A ASF 
DBL 

I.RS 6 
DAO A A BD 
DAD A APC 
DST AAPC 
DID AB PC 
BP Y ABSF 

I.RS 6 
DAD ABBD 
DAD AEPC 
DST ABPC 
DLD ACPC 
MPY ACSF 
IPS 6 
DAD ACBD 
DAD ACPC 
DST ACPC 
DLD ADPC 
NPY ADSF 
LRS 6 
DAD ADBD 
DAD ADPC 
DST ADPC 
DLD AEPC 
MPY AESF 
LRS 6 
DAD AEBD 
DAD AEPC 
DST AEPC 
DLD A FPC 

HPY AFSF 
LFS 6 
DAD A FBD 

DAD A F PC 

DST A FPC 
DLD DVXB 
MPY A A MX 

DST TACN 
DLD DVXB 
HPY ARMX 
DST TBCH 
DLD DVXB 
HPY ACH X 
DST TCCM 
DLD DVXB 
HPY ADMX 
DST TDCH 
DLD DVXB 
HPY AEH X 

DST TECH 
DLD •’ DVXB 
HPY AFHX 


REL 

SUBR 

0 OPOOOO ACOH DAC 
IDA 
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HICPOCOHP TEL EC OH HON I CAT ED DATA 



DDP- 

■516 

ASSEHBLY 

LISTING 


r osa 

00067 

0 

04 

00200 

DST 

TFCM 

0059 

00070 

0 

02 

00616 

DLD 

DVYB 

0060 

0007 1 

0 

16 

00730 

HPY 

A ANY 

0061 

00072 

0 

06 

00166 

DAD 

TACH 

P°62 

00073 

0 

04 

00166 

DST 

TACH 

0063 

00074 

0 

02 

00616 

DLD 

DVYB 

0064 

OO075 

0 

16 

00731 

HPY 

ABHY 

0065 

00076 

0 

06 

00 170 

DAD 

TBCH 

0066 

00077 

0 

04 

00170 

DST 

TBCH 

0067 

00 100 

0 

02 

00616 

DLD 

DVYB 

0 06 B 

70101 

0 

16 

00732 

HPY 

ACHY 

0069 

00102 

0 

06 

00172 

DAD 

TCCH 

0070 

00103 

0 

04 

00172 

DST 

TCCH 

0071 

00 104 

0 

02 

00616 

DID 

DVYB 

0072 

00105 

0 

16 

00733 

HPY 

ADHY 

0073 

00106 

0 

06 

00174 

DAD 

TDCH 

00 74 

00107 

0 

04 

00174 

DST 

TDCH 

0075 

00. 1 in 

0 

02 

00616 

DLD 

DVYB 

0076 

0011 1 

0 

16 

00734 

HPY 

AEHY 

0071 

00112 

0 

06 

00176 

DAD 

TECH 

0018 

00113 

0 

04 

00176 

DST 

TECH 

0019 

00 1 14 

0 

02 

00616 

DLD 

DVYB 

0080 

00115 

0 

16 

00735 

HPY 

AFHY 

078 1 

00116 

0 

06 

00 200 

DAD 

TECH 

0082 

00 1 1 7 

0 

04 

00200 

DST 

TPCH 

0083 

00120 

0 

02 

0 C 6 2 0 

DLD 

DVZB 

0084 

00121 

0 

16 

00736 

HPY 

A AHZ 

0085 

00122 

0 

06 

00166 

DAD 

TACH 

0036 

00123 

0401 

67 

LRS 

9 

C 087 

00124 

n 

06 

00600 

DAD 

A APC 

0088 

00125 

0 

04 

00600 

DST 

A A PC 

0089 

00126 

0 

02 

0C620 

DLD 

DVZB 

0090 

00127 

0 

16 

00737 

HPY 

ABHZ 

009 1 

oo 1 30 

0 

06 

00170 

DAD 

TBCH 

0092 

00131 

0401 

67 

LRS 

9 

0 093 

00132 

0 

06 

00602 

DAD 

ABPC 

0094 

00133 

0 

04 

00602 

DST . 

ABPC 

0095 

00134 

0 

02 

00620 

DLD 

DVZB 

0096 

00135 

0 

16 

00740 

HPY 

ACHZ 

0097 

00136 

0 

06 

00 172 

DAD 

TCCH 

0098 

00137 

0401 

67 

LRS 

9 

0099 

00 140 

0 

06 

00604 

DAD 

ACPC 

0100 

0014 1 

0 

04 

00604 

DST 

AC PC 

0101 

00 142 

0 

02 

00620 

DLD 

DVZB 

0102 

0014 3 

0 

16 

00741 

HPY 

ADHZ 

0103 

00144 

0 

06 

00174 

DAD 

TDCH 

0104 

00145 

0401 

67 

LRS 

9 

0105 

00 146 

0 

06 

00606 

DAD 

ADPC 

o 1 08 

00147 

0 

04 

00606 

DST 

ADPC 

Old 

00150 

0 

02 

00620 

DLD 

DVZB 

0108 

00151 

0 

16 

00742 

BPY 

AE HZ 

0109 

00 152 

0 

06 

00176 

DAD 

TECH 

0110 

00153 

0401 

67 

LRS 

9 

0111 

00154 

0 

06 

00610 

DAD 

AEPC 

0112 

00155 

0 

04 

00610 

DST 

AEPC 

0113 

00 156 

0 

02 

00620 

DLD 

DVZB 

0114 

00157 

0 

16 

00743 

HPY 

AF HZ 
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^TCPOCOMP TELECONNUNTCATED DATA 


DDP-516 AS S ENBLY LISTING 


DUE 

00160 

0 06 00200 


DAD 

TFCN 

01 16 

00 161 

0401 67 


L PS 

9 

0 117 

00 162 

0 06 00612 


DAO 

A F PC 

01 1 R 

00 163 

0 04 00612 


DST 

AFPC 

0 110 

op 164 

000005 


SGL 


0 120 

00 166 

-0 01 00000 


J N P* 

ACOM 

0121 


000600 

A A PC 

EQU 

•600 

0 122 


000602 

A RPC 

EOtJ 

AAPC*2 

0127 


000604 

ACPC 

Eon 

AAPC+4 

0 124 


000606 

ADPC 

EQtl 

A A PC <-6 

A 1 26 


000610 

A EPC 

EQI! 

AAPC +8 

0 126 


000612 

A FPC 

EQU 

AAPC+10 

o 1 27 


000700 

A ASF 

Eon 

•700 

0 123 


000701 

A' BSP 

EQT1 

A A S F ♦ 1 

0 120 


000702 

ACSF 

EQH 

AASF+2 

0 1 7" 


000703 

ADSF 

EQU 

AASF4-3 

0 171 


00O704 

AESF 

EO f l 

AASE+4 

0 172 


000706 

AFSF 

EQU 

AASF+5 

017 7 


000706 

A ABD 

EOO 

•706 

0 174 


0007 10 

ABBD 

EOU 

AABD+2 

0 17 6 


000712 

ACBD 

EOU 

AAED+4 

0 136 


000714 

ADBD 

EQU 

AABD +6 

017-7 


00 0716 

AE3D 

EOU 

AABD +8 

0 1 7 3 


000720 

AFBD 

EOU 

A A BD* 1 G 

0130 


000722 

AANX 

EQU 

•722 

0 1 40 


000723 

ABNX 

EQU 

AANX+1 

0141 


000724 

AC NX 

EQU 

AANX4-2 

0 142 


0O0725 

ADNX 

EQU 

AANX+3 

0 14 7 


000726 

AENX 

EOU 

AANX+4 

0 144 


000727 

AFNX 

EQU 

AANX+5 

0 146 


000730 

A ANY 

EQU 

AAHX +6 

0 1 4 6 


000731 

A BNY 

EQU 

AANX+7 

0 147 


000732 

ACNY 

EQU 

A A NX +-8 

0-143 


000733 

ADNY 

EOU 

AANX+9 

0143 


000734 

AENY 

EQU 

AAHX+10 

0160 


000735 

AFNY 

EQU 

A A MX * 1 1 

0 161 


000736 

A ANZ 

EQU 

A A NX * 1 2 

0162 


000737 

A BNZ 

EQU 

AAHX+13 

01 63 


000740 

AC N Z 

EQU 

AAMX+14 

0164 


000741 

ADMZ 

EQU 

AANX+15 

0166 


000742 

AENZ 

EQU 

A A NX* 1 6 

0166 


000743 

AFNZ 

EQU 

AANX+17 

0167 


000614 

DVXB 

EQU 

•614 

0 163 


000616 

DVYB 

EQU 

DVXB+2 

0 1 60 


000620 

DVZB 

EQU 

DVXB+4 

0 160 

00 166 

OOOnpo 

TACN 

DBP 

0 


00167 

000000 




0 16 1 

0 0 170 

0000 O 0 

TBCN 

DBP 

0 


00171 

OOOnno 




0 162 

00 172 

000000 

TCCH 

DPP 

0 


00173 

000000 




0 163 

00174 

000000 

TPCN 

DEP 

0 


O0 175 

000000 




0 164 

00 176 

000000 

TECN 

DBP 

0 


00 177 

000000 




0166 

00 200 

000000 

TFCN 

DBP 

0 


00 20 1 

000000 
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MTCPOCO 1 P TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 

END 


0 1*6 


PROGRAM NAME 
SOURCE: GCOM 
BINARY: BGCOM 

ENTRY POINT (location): GCOM 002242) 
GENERAL DESCRIPTION: 


This subroutine compensates the gyros for ±ASF, NBD, ADIA, ADO A, 
ADSRA, major compliance, GO, GS and OA coupling (by calling the OA 
coupling compensation subroutine, DCOA). Considering just the A gyro its 
compensation parameters are: 

GANS = 2 6 X gyro A negative ASF 

GAPS = 2^ X gyro A positive ASF 

GABD = gyro A's NBD 

ADAX, Y,Z = 2 }^ x Acceleration dependent 
drifts of gyro A for 
accelerations on the 
X, Y and Z axes 
(a function of ADIA, OA, SRA) 

0 

AASD = 2 x A gyro acceleration 
squared drift or major 
compliance 

GAMX, Y, Z = 2 0 x gyro A's misalignment 
along the negative X, Y 
and Z axes (functions 
of GO and GS). 

For the A gyro the following equations are implemented. 

, GAPS 

GAPC = GAPC + GABD + -^-GAPC or 

2 GANS 


where GAPC is Gyro A's pulse count 

GAPC = -4r(ADAX DVXB + ADAY DVYB + ADAZ DVZB) 

where DVXB, DVYB and DVZB are the accelerations (in units of AV x 
per update). 
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GA PC = GAPC -I — w(DVZB DVZB - DVXB DVXB - DVXB DVZB) AASD 
2 

where the parenthesized expression is proportional to DVATA DVASRA, 
the product of the accelerations on A gyros IA and SRA. 

CALL DCOA (see documentation for subroutine DCOA) 

GAPC = GAPC + -4n(GAMX DTXB + GAMY DTYB + GAMZ DTZB) 

2 iU 

where DTXB, DTYB and DTZB are A0 , A0 and A0 during the last update. 

x y z 

(Note, since ACOM is the subroutine which compensates the accelerometers 
and is a little simpler, it might be better to read its documentation first). 
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KTCRDCOMP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


onoi 




REL 


0002 




SUBR 

GCOM 

nno 3 

00000 

0 

ooooco 

GCOH DAC 

** 

0004 

OOOO 1 

0 

02 00400 

L DA 

GAPC 

9005 

00002 

000007 

DBL 


OOOf; 

00003 

101400 

SMI 


OO A7 

00004 

0 

01 00007 

JHP 

*♦3 

or oo 

00005 

0 

16 00506 

MPY 

GANS 

0009 

00006 

100000 

SKP 


0010 

00007 

0 

16 00500 

MPY 

GAPS 

00 1 1 

00010 

0401 72 

LBS 

6 

0012 

00011 

0 

06 00514 

DAD 

GABD 

001 3 

00012 

0 

06 00400 

DAD 

GAPC 

00 1 4 

000 13 

0 

04 00400 

DST 

GAPC 

OOis 

00014 

0 

02 00402 

DLD 

GBPC 

001 6 

000 15 

1 

01400 

SHI 


00 1 7 

00016 

0 

01 00021 

JMP 

*.♦ 3 

0019 

00017 

■ 0 

16 00507 

MPY 

GBNS 

ooiQ 

00020 

1 

00000 

SKP 


0070 

0002 1 

0 

16 00501 

MPY 

GBPS 

0021 

00022 

0 

401 72 

LRS 

6 

0 0 22 

00023 

0 

06 00516 

DAD 

GBBD 

0023 

0O024 

0 

06 00402 

DAD 

GBPC 

0024 

00025 

0 

04 00402 

DST 

GBPC 

0025 

O0026 

0 

02 00404 

DLD 

GC PC 

0026 

000 27 

1 

01400 

SMI 


OO 27 

00030 

0 

01 00033 

JHP 

*♦3 

OOofl 

00O31 

0 

16 00510 

MPY 

GCNS 

r>0 0 9 

OO 03 2 

1 

OOOOO 

SKP 


0030 

000 3? 

0 

16 00502 

MPY 

GCPS 

00,31 

00034 

0401 72 

LRS 

6 

0032 

00035 

0 

06 00 520 

DAD 

GCBD 

0033 

0QO36 

0 

06 00404 

DAD 

GCPC 

0034 

00037 

0 

04 00404 

DST 

GCPC 

0035 

0904 0 

0 

02 00406 

DLD 

GDPC 

0 n 36 

0004 1 

1 

01400 

SHI 


0037 

0004 2 

0 

01 00045 

JMP 

*♦3 

0009 

0004 3 

0 

16 00511 

MPY 

GDNS 

0039 

0004 4 

1 

OOOOO 

SKP 


0^40 

00° 4 5 

0 

16 00503 

MPY 

GDPS 

0041 

00046 

0 

401 72 

LRS 

6 

0947 

00 04 7 

0 

06 00522 

DAD 

GDBD 

0 043 

OOO50 

0 

06 00406 

DAD 

GDPC 

OO 44 

0005 1 

0 

04 00406 

DST 

GDPC 

0049 

00052 

0 

02 00410 

DLD 

GE PC 

0046 

0005 3 

1 

01400 

SMI 


0047 

00054 

0 

01 00057 

JMP 

* + 3 

0 04 9 

00055 

0 

16 00512 

MPY 

GENS 

0049 

00056 

100000 

SKP 


005O 

O0O57 

0 

16 00504 

MPY 

GEPS 

0051 

00950 

0401 72 

LPS 

6 

0052 

00O61 

0 

06 00524 

DAD 

GEBD 

0053 

00962 

0 

06 00410 

DAD 

GEPC 

0054 

00O63 

0 

04 00410 

DST 

GEPC 

r 055 

00064 

0 

02 00412 

DLD 

GEPC 

0056 

00965 

1 

01400 

SMT 


00 5 7 

00066 

0 

01 00071 

JMP 

*♦3 
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Of) 53 

O00f,7 

0 

16 

00513 

MPY 

GFNS 

0 n 5 9 

00070 

1 00000 

SKP 


00 60 

0007 1 

r) 

16 

00 505 

MPY 

GFPS 

0061 

00072 

0 40 1 

72 

TPS 

6 

7062 

00073 

0 

06 

00526 

DAD 

GFBD 

0063 

00074 

0 

06 

004 12 

DAD 

GFPC 

0064 

00075 

0 

04 

004 12 

DST 

GFPC 

0065 

00076 

0 

02 

00 6 1 4 

DID 

DVXB 

0066 

00077 

0 

16 

00 530 

MPY 

ADAX 

0067 

00100 

0 

04 

00450 

DST 

T ACM 

0 06 fl 

noioi 

0 

02 

00614 

DID 

DVXB 

0060 

O'' io 2 

o 

16 

00 531 

MPY 

A DBX 

0070 

00103 

o 

04 

00 452 

DST 

TBCM 

0071 

00 104 

o 

02 

006 14 

DID 

DVXB 

0072 

00105 

0 

16 

00532 

MPY 

ADCX 

0073 

00 106 

0 

04 

00 454 

DST 

TCCM 

0074 

00107 

0 

02 

00 614 

DLD 

DVXB 

0075 

00 1 10 

0 

16 

00533 

MPY 

ADDX 

0076 

00111 

o 

04 

004 56 

DST 

TDCM 

0077 

00112 

0 

02 

00614 

DLD 

DVXB 

0 0 73 

00113 

7 

16 

00 634 

MPY 

APEX 

0C79 

00 114 

0 

04 

00460 

DST 

TECM 

0030 

00115 

o 

02 

00614 

DLD 

DVXB 

r 03 1 

00116 

7 

16 

00535 

MPY 

ADFX 

0032 

oni 17 

0 

04 

00462 

DST 

TFCM 

f 033 

00 120 

0 

02 

00616 

DLD 

DVYB 

0 03 4 

00121 

0 

16 

00 5 36 

MPY 

ADAY 

0085 

00122 

0 

06 

00450 

DAD 

TACS 

0086 

00123 

0 

04 

00450 

DST 

TACM 

0037 

00 124 

0 

02 

00616 

DLD 

DVYB 

0083 

00125 

7 

16 

00 5 37 

MPY 

ADEY 

0 03° 

00126 

0 

06 

00 4 52 

DAD 

TBCM 

or 90 

00 1 27 

0 

04 

00452 

DST 

TBCM 

0 09 1 

00130 

0 

02 

006 16 

DLD 

DVYB 

009 2 

0^131 

7 

16 

00540 

MPY 

ADCY 

009 3 

00132 

7 

06 

07454 

DAD 

TCCM 

r o, 9 4 

00 137 

0 

04 

00454 

DST 

TCCM 

779 S 

00 134 

7 

02 

006 16 

DID 

DVYB 

0 0 3 8 

00 135 

7 

16 

00541 

MPY 

ADD Y 

.0 OQT 

00 1 36 

o 

06 

00 4 56 

DAD 

TDCM 

0 093 

071.37 

0 

04 

00456 

DST 

TDCM 

r rvqq 

0 7 14 0 

7 

02 

006 16 

DLD 

DVYB 

0 100 

00141 

0 

16 

00542 

MPY 

ADEY 

0 10 1 

00 142 

7 

06 

004 60 

DAD 

TECM 

C1C2 

00143 

0 

04 

00 4 60 

DST 

TECM 

0 103 

00 144 

0 

02 

006 16 

DLD 

DVYB 

0104 

00 i 45 

0 

16 

00543 

MPY 

ADFY 

0 105 

00 146 

0 

06 

00462 

DAD 

TFCM 

0106 

00147 

0 

04 

00462 

DST 

TFCM 

0107 

00 150 

0 

02 

00620 

DLD 

DVZB 

0 103 

00151 

0 

16 

00544 

MPY 

ADAZ 

0 109 

00 152 

0 

06 

00450 

DAD 

' TACM 

0110 

00153 

0401 

64 

IBS 

12 

0111 

00 154 

0 

06 

00400 

DAD 

GAPC 

0112 

0 0 15 3 

0 

04 

00400 

DST 

G A PC 

0113 

00 156 

0 

02 

00 6 20 

DLD 

DVZB 

0114 

00157 

0 

16 

00545 

MPY 

ADBZ 


55 



HTCROCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 


"115 

00160 

0 

06 

00452 

DAD 

TBCH 

01 16 

00161 

0401 

64 

LRS 

12 

0117 

00162 

0 

06 

00402 

DAD 

GBPC 

0110 

00 163 

0 

04 

00402 

DST 

GBPC 

Olio 

00164 

0 

02 

00620 

OLD 

DVZB 

0120 

op 1 65 

0 

16 

00546 

HPY 

ADCZ 

0121 

00166 

0 

06 

00454 

DAD 

TCCH 

0122 

00 167 

0 401 

64 

LRS 

12 

0121 

00170 

0 

06 

00404 

DAD 

GCPC 

0124 

00171 

0 

04 

.00404 

DST 

GCPC 

0125 

00172 

0 

02 

00620 

DLD 

DVZB 

0 126 

00 173 

0 

16 

00547 

HP Y 

ADDZ 

0127 

00174 

0 

06 

00456 

DAD 

TDCH 

0120 

CO 17 5 

0401 

64 

LRS 

12 

0129 

op 176 

0 

06 

00406 

DAD 

GDPC 

0110 

Oo 177 

0 

04 

00406 

DST 

GDPC 

0131 

00200 

0 

02 

00620 

DLD 

DVZB 

0 132 

00201 

0 

16 

00550 

HPY 

ADEZ 

0133 

00202 

0 

06 

00460 

DAD 

TECH 

0134 

00203 

0401 

64 

LRS 

12 

013 5 

00204 

0 

06 

00410 

DAD 

GEPC 

0136 

00205 

0 

04 

00410 

DST 

GBPC 

0137 

00206 

0 

02 

00620 

DLD 

DVZB 

0 130 

00207 

0 

16 

00551 

HPY 

ADFZ 

0 139 

00210 

0 

06 

00462 

DAD 

TPCH 

0140 

0021 1 

0401 

64 

LRS 

12 

0 141 

00212 

0 

06 

00412 

DAD 

GFPC 

0 142 

00213 

0 

04 

00412 

DST 

GFPC 

0143 

00214 

0 

02 

00614 

DLD 

DVYB 

0144 

00215 

0 

16 

00614 

HPY 

DVXB 

0146 

00216 

0 

04 

00434 

DST 

XSQO 

0 146 

00217 

0 

02 

00616 

DLD 

DVYB 

0147 

00220 

0 

16 

00616 

HPY 

DVYB 

0 140 

00221 

0 

04 

00436 

DST 

YSQO 

0149 

00222 

0 

02 

00620 

DLD 

DVZB 

0 150 

0 0 2 2 3 

0 

16 

00 6 20 

HPY 

DVZB 

0161 

00224 

0 

04 

00440 

DST 

ZSQO 

0 152 

00225 

0 

02 

00614 

DLD 

DVXB 

0 16 3 

00226 

0 

16 

00616 

HPY 

DVYB 

0154 

00227 

0 

04 

00442 

DST 

XHHY 

0155 

00230 

0 

02 

00614 

DLD 

DVXB 

0 156 

00231 

0 

16 

00620 

HPY 

DVZB 

0 157 

00232 

0 

04 

00444 

DST 

XZEE 

0 150 

00233 

0 

02 

00616 

DLD 

DVYB 

0159 

002 34 

0 

16 

00620 

HPY 

DVZB 

0160 

00235 

0 

04 

00446 

DST 

YZ EE 

0 161 

00236 

0 

02 

00440 

DLD 

ZSQO 

0 162 

00237 

0 

07 

00434 

DSB 

XSQO 

0 163 

00240 

0 

07 

00444 

DSB 

XZEE 

0164 

00241 

0 

16 

00422 

HPY 

A ASD 

0166 

00242 

0401 

72 

LRS 

6 

0 166 

00 24 3 

0 

06 

00400 

DAD 

GAPC 

0167 

00244 

0 

04 

00400 

DST 

GAPC 

0 160 

00245 

0 

02 

00440 

DLD 

ZSQO 

0169 

00246 

0 

07 

00434 

DSB 

XSQO 

0 170 

247 

0 

06 

00444 

DAD 

XZEE 

0171 

00250 

r* 

16 

00423 

HPY 

B ASD 
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017 ? 

00251 

0 401 

72 

LBS 

6 

0 173 

00252 

0 

06 

Of 402 

DAD 

GRPC 

017 a 

00253 

0 

04 

0 C 4 0 2 

DST 

G B PC 

o i7s 

00254 

0 

02 

00434 

DLD 

XSQU 

0176 

00255 

0 

07 

00436 

DSR 

YSQT1 

0177 

00256 

r \ 

07 

0 0 4 4 2 

DSB 

XWHY 

0170 

00257 

0 

16 

00424 

MPY 

CASD 

0 170 

00260 

0 401 

72 

LBS 

6 

0130 

00261 

0 

06 

00404 

DAD 

GC PC 

018 1 

00262 

0 

04 

00404 

DST 

GCPC 

0 182 

00263 

0 

02 

00434 

DT D 

XSQO 

0188 

"0264 

8 

07 

00436 

DSB 

YSOO 

0184 

00265 

0 

06 

00442 

ADD 

XWHY 

0188 

00266 

3 

16 

00 4 25 

MPY 

DASD 

0 186 

0"267 

0401 

72 

LBS 

6 

0187 

00270 

0 

06 

00406 

DA D 

GDPC 

0 188 

00271 

0 

04 

00406 

DST 

GD PC 

0139 

"0272 

0 

02 

00436 

DI.D 

YSQO 

0190 

0027 3 

0 

07 

00440 

DSB 

zsou 

019 1 

0 0274 

0 

0 7 

00446 

DSB 

YZEE 

0 192 

00275 

0 

16 

00426 

MPY 

EASD 

o 1 Q 3 

00276 

0 40 1 

72 

LBS 

6 

"19 4 

00277 

0 

06 

00410 

DAD 

GEPC 

0195 

00 300 

n 

04 

00 4 1 0 

DST 

GEPC 

0196 

0030 1 

n 

02 

00436 

DLD 

YSQO 

0197 

00 302 

0 

0 7 

00 440 

DSB 

ZSQU 

0 198 

00303 

0 

06 

00446 

ADD 

YZEE 

0 199 

00304 

0 

16 

00427 

MPY 

FASD 

02 90 

00305 

0401 

72 

LRS 

6 

020 1 

00 306 

0 

06 

00412 

DAD 

GFPC 

0202 

00307 

0 

04 

004 12 

DST 

GFPC 

0203 

00310 

000005 

SGL 


0204 

0031 1 

0 

10 

00000 

CALL 

DCO A 

0206 

00312 

000007 

DBL 


0 20 6 

0031 3 

0 

02 

00414 

DLD 

DT X B 

0 207 

00314 

0 

16 

00552 

MPY 

GAMX 

0 208 

003 15 

0 

04 

0045C 

DST 

TACM 

0209 

00 316 

0 

02 

00414 

DLD 

DTXB 

0210 

00 3 1 7 

0 

16 

00553 

MPY 

GBMX 

0211 

00320 

0 

04 

00452 

DST 

TBCM 

0212 

0032 1 

0 

02 

00 414 

DLD 

DTXB 

0213 

00 322 

0 

16 

00554 

MPY 

GCMX 

0214 

00 32 3 

0 

04 

00454 

DST 

TCCM 

0215 

00 324 

0 

02 

0"414 

DLD 

DTXB 

0716 

00325 

3 

16 

"0555 

MPY 

GDMX 

02 1 7 

00326 

9 

04 

00456 

DST 

TDCM 

0218 

00327 

n 

02 

00414 

DLD 

DTXB 

0219 

00 330 

0 

16 

00 556 

MPY 

GEMX 

0220 

0033 1 

0 

04 

00460 

DST 

TECH 

02 21 

00 33 2 

0 

02 

00 4 14 

DI-D 

DTXB 

0 22 2 

0 0 3 3 3 

0 

16 

00557 

MPY 

GF MX 

0223 

00 334 

0 

04 

00462 

DST 

TFCM 

0224 

00335 

0 

02 

00416 

DID 

DTYB 

0225 

00336 

0 

16 

00560 

MPY 

GAMY 

0226 

00 3 37 

3 

06 

00450 

DAD 

TACM 

0227 

00 340 

0 

04 

00450 

DST 

TACM 

0228 

00341 

0 

02 

00 416 

DLD 

DTYB 
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0229 

7 0 342 

7 

16 

00561 

MPY 

GBMY 

0 230 

00 34 3 

0 

06 

00452 

DAD 

TBCM 

0231 

00 344 

0 

04 

00452 

DST 

TBCM 

0232 

00 346 

7 

02 

00416 

DLD 

DTYB 

0233 

00346 

7 

16 

00562 

MPY 

GCMY 

023a 

00347 

9 

06 

0C454 

DAD 

TCCM 

0235 

00 350 

0 

04 

00454 

DST 

TCCM 

0230 

00361 

0 

02 

00416 

DLD 

DTYB 

0237 

00352 

7 

16 

07563 

MPY 

GDMY 

7238 

00353 

0 

06 

00456 

DAD 

TDCH 

0237 

00 354 

0 

04 

00456 

DST 

TDCH 

72«0 

70 365 

0 

02 

00416 

DLD 

DTYB 

0241 

00356 

0 

16 

00564 

MPY 

GEMY 

0242 

00 357 

0 

06 

00460 

DAD 

TECM 

0 243 

00360 

0 

04 

00460 

DST 

TECH 

0 244 

00 36 1 

0 

02 

00416 

DLD 

DTYB 

0245 

00362 

0 

16 

00565 

MPY 

GFMY 

02 40 

00 36 3 

0 

06 

00462 

DAD 

TFCM 

7247 

00 364 

7 

04 

00462 

DST 

TFCM 

7 24« 

00 365 

0 

02 

00 420 

DLD 

DTYB 

7340 

00 3 66 

0 

16 

00566 

MPY 

GAMY 

7 2 07 

0 7057 

7 

06 

00450 

DAD 

TACM 

0251 

70370 

0401 

66 

LRS 

10 

0252 

00371 

0 

06 

00400 

DAD 

G A PC 

0 2 03 

00372 

0 

04 

00400 

DST 

G A PC 

0254 

70373 

0 

02 

00420 

DLD 

DTYB 

0255 

0 0 3 7 4 

0 

16 

00567 

MPY 

GBMZ 

7256 

00 375 

0 

06 

00452 

DAD 

TBCM 

7 2 57 

07376 

040 1 

66 

LRS 

10 

0250 

0 0 0 7 7 

0 

06 

00402 

DAD 

GBPC 

7 250 

00400 

0 

04 

00402 

DST 

GBPC 

0260 

00 40 1 

0 

02 

00420 

DID 

DTZB 

0 26 1 

7-0402 

7 

16 

00 5 70 

MPY 

GCMZ 

0262 

00403 

0 

06 

00454 

DAD 

TCCM 

0263 

70474 

0401 

66 

LRS 

10 

0264 

07 405 

0 

06 

00404 

DAD 

GCPC 

0266 

7 0 4 0 6 

0 

04 

00404 

DST 

GCPC 

0266 

00407 

0 

02 

00420 

DLD 

DTZB 

0 267 

0 0 4 1 0 

0 

16 

00571 

MPY 

GDMZ 

7 26 0 

0 0 41 1 

0 

06 

00456 

DAD 

TDCM 

7269 

0041 2 

0401 

66 

IRS 

10 

0 270 

0 0 4 1 3 

0 

06 

00406 

DAD 

GDPC 

027 1 

004 14 

0 

04 

00406 

DST 

G D PC 

0272 

00415 

0 

02 

00420 

DLD 

DTZB 

0273 

07416 

0 

16 

00572 

MPY 

GFMZ 

0274 

00417 

0 

06 

00460 

DAD 

TECM 

0276 

00427 

0401 

66 

LRS 

10 

0276 

0042 1 

7 

06 

00410 

DAD 

GEPC 

7277 

00422 

0 

04 

0C410 

DST 

GE PC 

0270 

0 0 423 

0 

02 

00420 

DLD 

DTZB 

0 279 

0 0 4 2 4 

0 

16 

00573 

MPY 

GFMZ 

o 290 

00425 

0 

06 

00462 

DAD 

TFCM 

0291 

00426 

0 40 1 

66 

LRS 

10 

0292 

00427 

0 

06 

00412 

DAD 

GFPC 

0293 

70430 

0 

04 

00412 

DST 

GFPC 

0204 

00431 

000005 

SGL 


0206 

00432 

-0 

01 

00000 

JMP* 

GCOM 
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9286 

000400 

GAPC 

EQU 

•400 

0287 

000402 

GBPC 

EOD 

GAP02 

0289 

000404 

GCPC 

EQU 

GAPC+4 

0299 

000406 

GDPC 

EQU 

GAPC46 

0290 

000410 

GEPC 

EQU 

GAP08 

0291 

000412 

GFPC 

EQU 

G A PC* 1 0 

0292 

000500 

GAPS 

equ 

• 500 

029? 

000501 

GBPS 

EOD 

GAPS 4-1 

0294 

000502 

GCPS 

EOU 

GAPS42 

0295 

000503 

GDPS 

EQU 

GAPS+3 

0295 

000504 

GFPS 

FOU 

GAPS+4 

0297 

000505 

GFPS 

EOU 

GAPS +5 

0299 

000506 

GANS 

EQU 

GAPS46 

0299 

000507 

GBNS 

FOU " 

GAPS + 7 

0300 

000510 

GCNS 

FOU 

GAPS + 9 

0 3 o i 

000511 

GDNS 

EQU 

GAPS49 

0302 

000512 

GENS 

FOU 

GAPS 4 1 0 

0303 

000513 

GFNS 

FQU 

GAPS 4 1 1 

o?04 

000514 

GABD 

FOU 

• 514 

0305 

000516 

GBBD 

EQU 

GABD42 

0305 

000520 

GCBD 

EQU 

GABD44 

0307 

090522 

GDBD 

EQU 

GABD46 

0009 

000524 

GEBD 

FOU 

GABD48 

0309 

000526 

GFBD 

EQU 

GAPD410 

0310 

000530 

ADAX 

EQU 

• 530 

0311 

000531 

ADBX 

EOU 

ADAX41 

0312 

000532 

A DCX 

EQU 

ADAX + 2 

0313 

900533 

ADDX 

FQU 

ADAX43 

0314 

000534 

ADEX 

EQU 

ADAX+4 

0315 

000535 

A DFX 

EQU 

ADAX45 

0315 

000536 

ADAY 

EQU 

ADAX46 

0317 

000537 

ADBY 

EQU 

ADAX47 

0319 

000540 

A DCY 

EOU 

ADAX + 8 

0319 

000541 

ADDY 

EQU 

ADAX49 

0320 

000542 

ADEY 

EQU 

ADAX 4 10 

032 1 

000543 

ADFY 

EQU 

ADAX41 1 

0322 

000544 

A DA 7, 

EQU 

ADAY412 

0323 

090645 

ADB7, 

FQU 

ADAX+1 3 

0324 

000546 

A DCZ 

EQU 

ADA X + 1 4 

0325 

0O0547 

ADDZ 

EQU 

ADAX415 

0326 

OQ0550 

ADEZ 

EOU 

ADAX ♦ 1 6 

0329 

000551 

ADFZ 

EQU 

AD AX 4 1 7 

0329 

O00552 

GAMX 

EQU 

• 552 

0329 

000553 

GBMX 

EQU 

GAMX41 

0330 

000554 

GCMX 

EQU 

GAMX *2 

033 1 

000555 

GDMX 

EQU 

GAMX43 

0332 

000556 

GEMX 

EQU 

GAMX44 

0333 

000557 

GFMX 

EQU 

GAMX45 

0334 

000560 

GAMY 

EQU 

GA MX +6 

0 3 35 

0^0561 

GBMY 

EQU 

GAMX47 

0336 

000562 

GCMY 

EQU 

GAMX +9 

0337 

000563 

GDMY 

EQU 

GAMX49 

0338 

000564 

GEMY 

EQU 

GAMX410 

0339 

000565 

GFMY 

EQU 

GAMX41 1 

0340 

000566 

GAMZ 

EQU 

GAMX412 

0341 

000567 

G3MZ 

EQU 

GAMX413 

0342 

000570 

GCMZ 

EQU 

GAMX414 
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vrc^m-n TELECOMMUNICATED DATA 



opp- 

516 ASSEMBLY 

LISTING 


ft 3 tO 


000571 

GPMZ 

ECU 

GAMX+1 5 

0344 


000572 

GEMZ 

EQU 

GAMX ■*•16 

A 345 


000573 

GFMZ 

EQU 

GAMX+17 

*146 


000422 

A ASD 

EQU 

. 422 

A 347 


000423 

BASD 

EOU 

AASD-t-1 

0 146 


0004 24 

C AS D 

EOU 

AASD+2 

0 3 4° 


000425 

D ASD 

EQU 

AASD+3 

016* 


000426 

EASD 

EOU 

AASD+4 

*161 


0004 27 

F ASD 

EOU 

AASD+5 

0 3 6 3 


000614 

DVXB 

EQU 

•614 

0 3S1 


000616 

DVYB 

EQU 

DVXB+2 

0164 


000620 

DVZB 

EOU 

DVXB+4 

0 366 


000414 

DTXB 

EOU 

•414 

0366 


000416 

DTYB 

EQU 

DTXB +2 

03S-7 


0 00 420 

DTZB 

EQU 

DTXB +4 

0 366 

0 0 4 14 

O00000 

XSQU 

DBP 

0 


0 0 4 36 

00(1000 




0 160 

004 16 

000000 

Y 5Q0 

DBP 

0 


004 37 

oooooo 




0 360 

00440 

*00000 

7, SOU 

DBP 

0 


0044 1 

000**0 




036 1 

0044 2 

oooooo 

XWHY 

DBP 

0 


0044 3 

oonopo 




0362 

00444 

oooooo 

XZEE 

DBP 

0 


0 0446 

0 00000 




0 36^ 

00446 

oooooo 

YZEE 

DBP 

0 


00447 

oooooo 




0 364 

00450 

OOOOOO 

T ACM 

DBP 

0 


0046 1 

OOOOOO 




0166 

00462 

OOOOOO 

TBCM 

DBP 

0 


0 04 6 1 

000*00 




0 366 

00454 

*00000 

TCCM 

DBP 

0 


00455 

oooooo 




0 160 

o 0 4 5 6 

OOOOOO 

TDCM 

DBP 

0 


00467 

oooooo 




016 6 

00460 

oooooo 

TECH 

DBP 

0 


00461 

oooooo 




0.160 

00462 

OOOOOO 

TFCH 

DBP 

0 


0 0 4 61 

*00000 




0 170 




END 
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PROGRAM NAME 
SOURCE: DCMT 
BINARY: BDCMT 

ENTRY POINTS (location): DCMI ('03476), DCMT (’03551) 

GENERAL DESCRIPTION: 

The subroutine DCMT modifies the misalignments of the SIRU gyros 
about their output axes as a function of W^, their input axis rate which is 
poportional to the number of pulses each gyro got in one update (At = .01 
sec.). The subroutine DCMI is called by the initialization section of the 
main program and gets these misalignments from the base sector and stores 
them in the buffer section between the subroutines DCMI and DCMT. It 
does this only once and sets the word ONLO to 1 so that if the main program 
is restarted, it won't get misalignments from the base sector that are already 
modified. 

Subroutine DCMT, which is called every update, takes these OA 
misalignments stored in the buffer, modifies them according to the gyro's 
IA rate and stores them back in the base sector to be used by the gyro 
compensation program GCOM. 
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MTCFOCOMP TELECOM HO NIC AT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0001 




REL 


0**2 




SUBR 

DCHI 

0*03 




SUBR 

DCHT 

00*4 

0**00 

0 000000 

DCHI 

DAC 

** 

0*05 

00 00 1 

0 02 00036 


LD A 

ONLO 

0*06 

00002 

100040 


SZE 


0007 

00003 

-0 01 *0000 


JMP* 

DCHI 

or or 

00004 

0 02 00552 


L DA 

GAH X 

r oor 

00005 

0 04 00037 


STA 

AHXB 

0010 

00006 

0 0200566 


LDA 

GAHZ 

00 1 1 

00007 

0 04 00040 


STA 

AHZB 

0017 

coo 10 

0 02 00553 


LDA 

GBHX 

00 17 

noon 

0 04 00041 


STA 

BHXB 

0014 

o'* 0 12 

0 02 00567 


LDA 

GBHZ 

0*16 

00013 

0 04 00042 


STA 

BHZB 

00 1 6 

000 14 

0 02 00554 


LDA 

GCHX 

0 0 17 

OOOis 

0 04 00043 


STA 

CHXB 

oriR 

00016 

0 02 00562 


LDA 

GCHY 

OO iq 

0**17 

* 04 0*044 


STA 

CHYB 

0020 

0**20 

0 02 0*555 


LDA 

GDHX 

o o 2 1 

0**2 1 

0 04 *0045 


STA 

DHXB 

0 0 22 

0**22 

0 02 00563 


LDA 

GDHY 

0 0 27 

00*2 3 

0 *4 00046 


STA 

DHYB 

0 0 24 

0**24 

0 02 0*564 


LDA 

GEHY 

*025 

00*25 

* *4 00047 


STA 

EHYB 

0025 

00026 

* 02 00572 


LDA 

GEHZ 

0027 

0**27 

0 04 0*050 


STA 

EHZB 

0020 

noo 30 

0 02 00565 


LDA 

GPHY 

002Q 

0003 1 

0 04 00051 


STA 

FHYB 

0030 

000 3 2 

002 00573 


LDA 

GPHZ 

0031 

C*033 

0 04 0*052 


STA 

FHZB 

0037 

00034 

0 1? 00*36 


IPS 

ONLO 

00 3 7 

*0035 

-0 01 00000 


JMP* 

DCHI 

0*34 

00*36 

000*00 

ONLO 

OCT 

0 

0075 


0*0552 

GAHX 

EQU 

•552 

on 3 R 


*00566 

GAMZ 

EQU 

GAHX+12 

0037 


00*553 

GBHX 

EQU 

G A H X* 1 

0035 


000567 

GBMZ 

EQO 

GAMX + 1 3 

0030 


000554 

GCMX 

EQU 

GAMX+2 

0040 


000562 

GCMY 

ECU 

GAHX+8 

0041 


*00555 

GDHX 

EQU 

GAHX+3 

*042 


000563 

GDHY 

ECU 

GAMX+9 

0047 


000564 

GEM Y 

EQU 

G A MX* 1 0 

*044 


0*0572 

G EM7 

EQU 

GAHX+16 

0045 


00*565 

GFHY 

EQU 

G A H X* 1 1 

0046 


*00573 

GFHZ 

EQU 

GAHX+1 7 

0047 

0**37 

000000 

AMXB 

OCT 

0 

004 R 

00040 

*0*000 

AMZB 

OCT 

0 

0049 

0004 1 

000000 

BMXB 

OCT 

0 

00 50 

0*042 

000000 

BMZB 

OCT 

0 

0051 

0 0 0 4 3 

000000 

CHXB 

OCT 

0 

0052 

00044 

000000 

CHYB 

OCT 

0 

00 R7 

00*45 

0000*0 

DMXB 

OCT 

0 

* *64 

0**46 

00*000 

DMYB 

OCT 

0 

00 s 5 

00*47 

000000 

EHYB 

OCT 

0 

0 0 56 

*0050 

0000*0 

EHZB 

OCT 

0 

0057 

0*051 

000000 

FHYB 

OCT 

0 
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MICROCOMP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


00 58 

00052 

000000 

PMZB 

OCT 

0 

0959 

00053 

0 

000300 

DCMT 

DAC 

** 

0060 

00054 

o 

02 

00400 


L DA 

GAPC 

or 61 

00055 

0 

16 

00151 


MPY 

APRX 

0062 

00056 

0401 

00 


LPS 

0 

0063 

00057 

0 

06 

000 37 


ADD 

AMXB 

0 06 4 

00060 

0 

04 

00552 


STA 

GAMX 

006^ 

00061 

0 

02 

00400 


IDA 

GAPC 

0066 

00062 

0 

16 

00 152 


MPY 

APRS 

0067 

00063 

0401 

00 


LPS 

0 

0060 

00064 

0 

06 

00040 


ADD 

AMZB 

Or»69 

00065 

0 

04 

00566 


STA 

GAMZ 

0070 

00066 

0 

02 

00402 


L D A 

GBPC 

0071 

00067 

0 

16 

00153 


MPY 

BPRX 

0 072 

00070 

0401 

OC 


LRS 

0 

0073 

00071 

0 

06 

00041 


ADD 

BMXB 

0074 

00072 

0 

04 

00553 


STA 

GBMX 

0075 

00073 

0 

02 

00402 


I.DA 

GBPC 

0076 

00074 

0 

16 

00 154 


MPY 

BPRZ 

0077 

00075 

0401 

00 


LRS 

0 

0070 

0 007 6 

0 

06 

00042 


ADD 

BMZB 

0079 

00077 

0 

04 

00567 


STA 

GBMZ 

0300 

00 100 

0 

02 

00404 


L DA 

GCPC 

0081 

OO101 

0 

16 

00 155 


MPY 

CPPX 

0082 

09102 

0401 

90 


LRS 

0 

0083 

0 010 3 

0 

06 

00043 


ADD 

CMXB 

0 08 4 

00104 

0 

04 

00654 


STA 

GCMX 

0085 

00105 

0 

02 

00404 


LDA 

GCPC 

f 086 

00106 

0 

16 

00 156 


MPY 

CPRY 

0087 

00107 

0401 

00 


LRS 

0 

008 8 

O0110 

0 

06 

00044 


ADD 

CM Y B 

0089 

00111 

0 

04 

00562 


STA 

GCMY 

0090 

00112 

0 

02 

00406 


LDA 

GDPC 

0 09 1 

00113 

0 

16 

00157 


MPY 

DPRX 

009 7 

OQ114 

0401 

00 


LRS 

0 

009.3 

00 115 

0 

06 

00045 


ADD 

DM XB 

009 4 

00 116 

0 

04 

00555 


STA 

GDM X 

0096 

00117 

o 

02 

00406 


LDA 

GDPC 

0096 

00120 

0 

16 

00 160 


MPY 

DPR Y 

0 *97 

00121 

0401 

00 


LRS 

0 

0099 

00 122 

0 

06 

30046 


ADD 

DM Y B 

0 098 

O0 123 

0 

04 

00563 


STA 

GDMY 

0 100 

00 124 

0 

02 

004 10 


LDA 

GEPC 

0101 

00125 

0 

16 

00161 


MPY 

EPPY 

0102 

00 126 

0401 

00 


LRS 

0 

0 103 

00127 

0 

06 

00047 


ADD 

EMYB 

0 104 

no 1 39 

0 

04 

00564 


STA 

GEMY 

0105 

0013 1 

0 

02 

00410 


LDA 

GEPC 

0106 

00132 

0 

16 

00 162 


MPY 

EPRZ 

0 107 

00133 

0401 

00 


LRS 

0 

0 108 

00134 

0 

06 

00050 


ADC 

EM ZB 

0 109 

00135 

0 

04 

00 572 


STA 

GEMZ 

01 10 

00 136 

0 

02 

00412 


LDA 

GFPC 

0111 

00137 

0 

16 

00163 


MPY 

FPPY 

0 112 

00 140 

0401 

00 


LRS 

0 

0 113 

0014 1 

0 

06 

00051 


ADD 

FMYB 

0 114 

00 142 

0 

04 

00565 


STA 

GFMY 
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MICROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


Oils 

00 143 

0 02 00412 


L D A 

GFPC 

''Ilf 

00144 

0 16 00164 


MPY 

FPRZ 

0 117 

00 145 

0401 00 


LRS 

0 

0118 

00146 

0 06 00052 


ADD 

PMZB 

01 19 

00 147 

0 04 00573 


ST A 

GFMZ 

0 120 

00150 

-0 01 00053 


JMP* 

DC MT 

0121 


000400 

G APC 

ECU 

• 400 

0122 


000402 

GBPC 

EQU 

GAPC+2 

0 123 


000404 

GCPC 

ECU 

GAPC*4 

0 124 


000406 

GDPC 

EQU 

GAPC +6 

0 1 2S 


000410 

GEPC 

EQtl 

GAPC +8 

0128 


000412 

GFPC 

EQU 

G A PC* 1 0 

0127 

00 15 1 

"00000 

APR X 

oct 

0 

0128 

00152 

oonOOO 

APRZ 

OCT 

0 

012 ° 

oo 15 3 

000000 

BPRX 

OCT 

0 

C 1 30 

0O154 

000900 

B PR Z 

OCT 

0 

0 13 1 

00 155 

000000 

CPRX 

OCT 

0 

0 1 32 

00156 

O0P0"0 

C PR Y 

OCT 

0 

0 13? 

00 157 

OO 00 C 0 

DPRX 

OCT 

0 

0134 

00160 

000000 

DPRY 

OCT 

0 

01 3S 

0 0 16 1 

000000 

EPRY 

OCT 

0 

o 1 3S 

00 1 62 

"00990 

F PR Z 

OCT 

0 

0 137 

00 16 3 

000090 

FPRY 

OCT 

0 

0 1 3S 

0 0 16 4 

"09900 

FPPZ 

OCT 

0 

0170 




END 
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PROGRAM NAME 
SOURCE: DCO A 
BINARY: BDCOA 

ENTRY POINT (location): DCO A ( '031 44) . 

ACCESSIBLE VARIABLES (location): AOAP ( '03252) 

BOAP ( '03254), COAP ('03256), DOAP ('03260), EOAP (’03262), 

FOAP 003264) 

GENERAL DESCRIPTION: 

The SIRU gyros sense not only a rotational input about their input 
axes, i.e., the Afl pulses over some interval would equal the integral of 
over that interval, but also they sense a change in the rotational 
input about their output axes, i.e., the AG pulses over some interval would 
equal (-I)/H times the integral of W q ra over that interval. The latter 
can essentially be considered an error source since the gyro output is 
supposed to represent only the former input axis rotation. 

The integral of W QRA from tj to t g is simply Wq ra (tg) - W QRA 
(t^). TheA0 error during that interval is simply ( - 1 ) / H W QRA (tg) - ( - 1 ) / H 
Wqpja ^i>. To compensate this error, one simply has to add ((I)/H) (Wqj^ 
(t 2 )) and subtract ((I)/H)(WQ RA (tj)) at time tg. Over one update interval 
the rate Wq RA (for say the E gyro) equals 

AG 

x 

At 

Since At is constant, we can express Wq RA as KAS^. and rewrite the 
compensation quantity as 

+ <i K> A0 x <y - K) A6 x (y . 

This subroutine is called once per update and calculates the first of 
the two compensation terms above. The second term is saved from the 
previous update. DTXB, DTYB and DTZB are A 0.^, AG y and A^ 
respectively. 

GAIH, GBIH GFIH are the scaled constants equal to 

<i K > 
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(Note that since the E gyro has its ORA along the plus x axis, GEIH will 
be positive whereas the F gyro, whose ORA is along the minus X axis will 
have a negative GFIH.) The method for compensating the E gyro is as 
follows: (the others are analogous) 

EOAO = DTXB GEIH = A 9 (t 0 )(^K) 

x z ri 

and 

GEPC = EOAO + GEPC - EOAP 
where EOAP = A0 x (t^)(^K) 

(Note, EOAP (previous EOAO) must beset to zero at t = 0 and is therefore 
an accessible variable to the main program). 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

•516 

ASSEMBLY 

LISTING 


000 1 





REL 


0002 





SUBR 

DCO A 

''O 0.7 





StJRR 

AO A P 

6 n on 





SI! BR 

BO AP 

ooos 





SDBR 

COAP 

00^6 





SUBR 

DO AP 

00 07 





SUBR 

FOAP 

Of oq 





SUBR 

FOAP 

0 0 0,0 

00000 

0 

000000 

DCO A DAC 

** 

OO 1 0 

00001 

0 

02 

00414 

L D A 

DTXB 

0011 

00002 

000007 

DBL 


0012 

0000 3 

0 

16 

00126 

MPY 

GFIH 

00 13 

0 0 0 0 4 

0 

04 

0 C 102 

DST 

EO AO 

0014 

00005 

0 

02 

00414 

DID 

DTXB 

0010 

00"06 

0 

16 

00127 

MPY 

GFIH 

0016 

00007 

0 

04 

0D104 

DST 

FO AO 

0017 

0O010 

0 

02 

00416 

DLD 

DTYB 

00 1 R 

0 O 01 1 

0 

16 

00122 

MPY 

GATH 

0019 

00012 

0 

04 

00072 

DST 

AO AO 

0020 

00013 

0 

02 

004 16 

DLD 

DTYB 

00 21 

00014 

0 

16 

00123 

MPY 

GBIH 

0^22 

000 15 

0 

04 

00074 

DST 

BO AO 

0 0 23 

00016 

0 

02 

00420 

DLD 

DTZB 

0024 

00017 

c 

16 

00 124 

MPY 

GCIH 

0 0 2 6 

00020 

0 

04 

00076 

DST 

CO AO 

0026 

0002 1 

0 

02 

00420 

DLD 

DTZB 

0027 

00022 

0 

16 

00125 

MPY 

GDIH 

0028 

00 0 2 3 

0 

04 

00100 

DST 

DO AO 

0029 

00024 

0 

06 

00406 

DAD 

GDPC 

f 0 30 

00025 

0 

07 

00114 

DSB 

DO AP 

0031 

00026 

0 

04 

00406 

DST 

GDPC 

00 3 2 

00027 

0 

02 

00072 

DLD 

AO AO 

0033 

00030 

0 

06 

0C400 

DAD 

G A PC 

O 034 

0003 1 

0 

07 

00106 

DSB 

AO A P 

0038 

00032 

0 

04 

00400 

DST 

G A PC 

0036 

000 3 3 

0 

02 

00074 

DID 

BO AO 

0037 

0 3 0 3 4 

0 

06 

00402 

DAD 

GBPC 

00 38 

00035 

0 

07 

30 1 10 

DSB 

BOAP 

0039 

00 r '36 

0 

04 

00402 

DST 

GBPC 

0040 

00037 

0 

02 

00076 

DLD 

CO AO 

0041 

00040 

0 

06 

00404 

DAD ■ 

GCPC 

004 2 

00041 

0 

07 

001 12 

DSB 

COAP 

004 3 

00042 

0 

04 

00404 

DST 

GCPC 

0^4 4 

00043 

0 

02 

00 102 

DLD 

EO AO 

0045 

00044 

0 

06 

00410 

DAD 

GFPC 

0046 

O0045 

0 

07 

00116 

DSB 

EO AP 

0047 

00046 

0 

04 

00410 

DST 

GEPC 

O 048 

00047 

0 

02 

00 104 

DLD 

FO AO 

0040 

00050 

0 

06 

00412 

DAD 

GFPC 

0050 

00051 

0 

07 

00120 

DSB 

FOAP 

0051 

OO052 

n 

04 

00412 

DST 

GFPC 

0052 

00053 

0 

02 

00072 

DLD 

AO AO 

0053 

00054 

0 

04 

00106 

DST 

AO A P 

0054 

00C55 

0 

02 

00074 

DLD 

BO AO 

O 055 

00056 

0 

04 

00110 

DST 

BOAP 

0056 

00057 

0 

02 

00076 

DLD 

CO AO 

0057 

00060 

0 

04 

00112 

DST 

COAP 
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1ICR0C0M P TELECOMMUNICATED DAT A 


DDP-516 ASSEMBLY LISTING 


0056 

10061 

0 02 00300 


DID 

DO AO 

0 OSD 

00062 

0 04 00114 


DST 

DOAP 

'•'060 

00063 

0 02 00102 


DLD 

EOAO 

nOftl 

00064 

0 04 00116 


DST 

EOAP 

0062 

00066 

0 02 00104 


DLD 

FO AO 

pop 3 

00066 

0 04 00120 


DST 

FOAP 

9964 

00067 

000005 


SGL 


C 06 5 

00070 

-0 01 00000 


JHP* 

DCO A 

0066 

00072 

000000 

AOAO 

DBP 

0 


00973 

000000 




0067 

90074 

000000 

BOAO 

DBP 

0 


99076 

900000 




0 0 fip 

09076 

000000 

COAO 

DBP 

0 


00977 

990000 




OOftQ 

90 100 

900000 

DO AO 

DBP 

0 


00 10 1 

000000 




«r 70 

00 102 

000900 

EOAO 

DBP 

0 


0 9 10 3 

900000 




007 1 

90104 

oooooo 

FOA 0 

DBP 

0 


00106 

oooooo 




A 072 

9 0, 106 

OOOOOO 

AOAP 

DBP 

0 


9 9 10 7 

OOOOOO 




9977 

9 9 110 

oooooo 

BOAP 

DBP 

0 


09111 

000900 




0074 

99112 

0009 CO 

COAP 

DBP 

0 


00 113 

OOOOOO 




0 076 

091 14 

OOOOOO 

DOAP 

DBP 

0 


00116 

oooooo 




0076 

00116 

oooooo 

EOAP 

DBP 

0 


90117 

oooooo 




0077 

00120 

OOOOOO 

FOAP 

DBP 

0 


09 121 

oooooo 




0 0 73 

00122 

oooooo 

GAIH 

OCT 

0 

n 079 

00123 

oooooo 

GBTH 

OCT 

0 

0:190 

00124 

oooooo 

GCIH 

OCT 

0 

0O« 1 

90 125 

oooooo 

GDIH 

OCT 

0 

0092 

00126 

oooooo 

GETH 

OCT 

0 

0 0 9 9 

00 129 

000900 

GFIH 

OCT 

0 

0 0 94 


000490 

G A PC 

E 00 

•400 

010 6 


000402 

GBPC 

EQU 

GAPC+2 

0096 


000404 

GCPC 

EQU 

GAPC+4 

OO07 


000406 

GDPC 

EQTJ 

GAPC +-6 

0099 


000410 

GEPC 

EQfJ 

GAPC +-8 

0099 


000412 

GFPC 

EQU 

GAPC+10 

00 90 


000414 

DTXB 

EQU 

•414 

00 9 1 


000416 

DTYB 

EOU 

DTXB+2 

0002 


000420 

DTZB 

EQU 

DTXB+4 

ooq o 




END 
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PROGRAM NAME 
SOURCE: ROMS 
BINARY: BROMS 

ENTRY POINTS (location): ROMS ('14000) 
ACCESSIBLE VARIABLES: WXPR ('14333), 
WYPR ( '14334), WZPR ('14335) 

GENERAL DESCRIPTION: 


When the SIRU strapdown system is subjected to a rotational environ- 

2 

ment its accelerometers will sense acceleration due to m R and u)R. Since 
the accelerometers do not all sense acceleration at the same point, these 
rotation- induced accelerations will make the accelerometers appear to be 
in disagreement. This subroutine compensates the accelerometers to make 
them look as if they are all sensing acceleration at the same point (since 
the location of this point is not critical we pick the center of the A 
accelerometer so that at least the A accelerometer need not be compensated). 


Consider some point which has an R vector from the center of the A 
accelerometer of (RX, RY, RZ). The acceleration sensed at this point 
different from the acceleration sensed at the center of the A accelerometer 
is: 


i(u to RY + to to RZ - to 2 R - to 2 RX + to RZ - to RY) 

xy xz yx z y z 

+ T(to to RZ + to to RX - to 2 RY - to 2 RY + to RX - i RZ) 

J y z y x x z z x 

+"k(u to RX + to to RY - to 2 RZ - to 2 RZ + to RY - to RX) 

zx zy x- y x y 


B, C, D, E and F accelerometers can be corrected by adding the 
negative of the acceleration each one senses due to rotation. For the F 
accelerometer this would be 


-S (Z axis acceleration) + C (Y axis acceleration) 


where 


C = cosine, S = sine 
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or 


-S(u> u RFX + u u RFY - u 2 RFZ - u 2 RFZ + w RFY - ib RFX) 
zx zy x y x y ' 

2 2 

+C (u u RFZ + w u RFX - id RFY - id RFY + u RFX - ib RFZ) 
y z yx x z z x 

these terms can be combined to give: 

C RFX(u id + ib ) 
y x z' 


+ C RFY(-u * 

<5 > 

- W 

X 

z 

+ C RFZ (c u 

- u ) 

y z 

X 

+ S RFX(-u u 

+ u ) 

z X 

y 

+ S RFY(-u u 

- (j ) 

z y 

X 


+ S RFY (id 2 + u 2 ) 
x y 

a similar set of corrections can be derived for accelerometers B, C, D 
and E. 


2 2 2 

This subroutine first calculates u> x u y i»> x w z ; u' z , u> x< uy u> z , 

u; , uj and u; using A 0 , A 6 and A 6 over one update interval as an 
x y z x y z 

indication of w , u and u; . It then calculates- 
x y z 


PARI = id id + u 
y x z 

PAR2 = u 2 + w 2 
x z 

PAR3 = u u - w 
y z x 

PAR4 = id u - ib 
z x y 

PAR5 = id id - u 
z y x 

PAR6 = id 2 + id 2 

x y 

PAR7 = id 2 + id 2 

y z 
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PAR8 = to u - (I) 
x y z 

PAR9 = u (j + (Ij 
x z y 

F's correction can now be defined as: 


C RFX PARI 
-C RFY PAR2 
+C RFZ PAR3 
-S RFX PAR 4 
-S RFY PAR5 
+S RFZ PAR6 


Without doing the whole derivation B's correction can be defined as: 

-C RBX PAR4 
-C RBY PAR5 
+C RBZ PAR 6 
-S RBX PAR 7 
+S RBY PAR 8 
+S RBZ PAR9 

C, D and E have similar corrections. 

The terms in the above equations such as -C RBX are constants and 
are stored as such in this subroutine. They are functions of the following 
table of distances which was made from detailed drawings of the SIRU 
Pi-frame and SIRU accelerometers. 


■~^4XIS 


B 

c 

D 

E 

F 

R(cm) 

H 






X 

0 

-8.603 

13. 937 

13. 937 

2. 718 

0. 902 

Y 

0 

-1. 816 

-24. 021 

-15.418 

-27. 081 

11. 130 

Z 

0 

0 

2.482 

0.665 

1.085 

1. 085 
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MICFOCOMP TELECOMMUNICATED DATA. 



DDP- 

516 

ASSEMBLY 

LISTING 


0 OP 1 





ABS 


0002 





ORG 

• 14000 

000 3 





SOBR 

WXPR 

000 4 





SUBP 

WYPR 

0°°5 





SUBR 

WZPR 

0006 





SUBR 

ROMS 

0007 

14000 

0 

0 0 0 0 G 0 

ROMS DAC 

** 

or 0 8 

14001 

0 

02 

00414 

LD A 

wx 

ooo q 

14002 

0 

16 

00416 

MPY 

WY 

0010 

14003 

0 

04 

14322 

STA 

WX WY 

0011 

1 4004 

0 

02 

00414 

LDA 

NX 

0012 

1 4005 

0 

16 

00420 

MPY 

W7. 

0013 

14O06 

0 

04 

14323 

STA 

wxwz 

0014 

14007 

0 

02 

00416 

LDA 

WY 

0015 

1 4010 

0 

16 

00420 

MPY 

wz 

00 18 

14011 

0 

04 

14324 

STA 

WYWZ 

00 17 

14012 

0 

02 

00414 

LDA 

NX 

0018 

14013 

0 

16 

00414 

MPY 

NX 

Oo 1 q 

14014 

0 

04 

14325 

STA 

NX SQ 

0020 

14015 

0 

02 

0C416 

LDA 

WY 

n 021 

14016 

0 

16 

00 4 1 6 

MPY 

WY 

0022 

14017 

0 

04 

14326 

STA 

WYSQ 

0023 

1 402° 

0 

02 

°C 4 20 

LDA 

WZ 

0024 

14021 

0 

16 

00420 

MPY 

WZ 

0028 

14022 

0 

04 

14327 

STA 

WZSQ 

0026 

1 4023 

0 

02 

0C414 

LDA 

WX 

0027 

14024 


07 

14 3 3 3 

SUB 

WXPR 

0028 

14025 

0415 

72 

ALS 

6 

002° 

1 4026 

0 

04 

1 4330 

STA 

WXDT 

0030 

14027 

0 

02 

00416 

LDA 

WY 

0031 

14030 

0 

07 

14334 

SUB 

WYPR 

0032 

1 4031 

0415 

72 

ALS 

6 

0033 

14032 

0 

04 

14331 

STA 

WYDT 

0034 

1 4033 

0 

02 

00420 

LDA 

WZ 

0035 

14034 

0 

07 

14335 

SUB 

W7PR 

0036 

1 4035 

0415 

72 

AIS 

6 

00 3 7 

1 4 n 36 

r* 

04 

14332 

STA 

SZDT 

0 03 8 

14037 

0 

06 

14322 

ADD 

WX W Y 

003° 

14040 

0 

04 

14262 

STA 

PARI 

00 40 

1404 1 

0 

16 

1 4336 

MPY 

CRFX 

0041 

14042 

000007 

DDL 


00 42 

14043 

0 

04 

14304 

D ST 

CORF 

00 4 3 

14 0 4 4 

000005 

SGI. 


00 44 

1 4045 

0 

02 

1 4325 

LDA 

wxsq 

0045 

1 4046 

0 

06 

14327 

ADD 

WZSQ 

0046 

14047 

0 

04 

14264 

STA 

PAR2 

0047 

I4050 

0 

16 

1 4337 

MPY 

CRFY 

0048 

14051 

000007 

DBL 


0049 

14052 

0 

06 

14304 

DAD 

CORF 

00 50 

14053 

0 

04 

14304 

DST 

CORF 

0051 

14054 

000005 

SGL 


0°52 

14055 

0 

02 

14324 

LDA 

WYWZ 

0053 

14056 

0 

07 

14330 

SUB 

WXDT 

0054 

14057 

0 

04 

14266 

STA 

PAR3 

0055 

14060 

0 

16 

14340 

MPY 

CRFZ 

0056 

14061 

000007 

DBL 


0057 

14062 

0 

04 

14316 

DST 

TEH 1 


73 


MICPOCOHP TELECOHHONICATED DATA 


DDP-516 ASSEMBLY LISTING 


0058 

14063 

0 06 

14304 

DAD 

CORF 

COS" 

14064 

0 04 

14304 

DST 

CORF 

0060 

14066 

000005 

SGL 


0061 

14066 

0 02 

14323 

LDA 

VXRZ 

0062 

14067 

0 07 

14331 

SOB 

HYDT 

"063 

14070 

0 04 

14270 

STA 

PAR4 

006 4 

14071 

0 16 

14341 

HPY 

SRFX 

0066 

14072 

000007 

DBL 


0" 6 6 

14073 

0 06 

14304 

DAD 

CORF 

0067 

14074 

0 04. 

14304 

DST 

CORF 

0 0 6 6 

14076 

000005 

SGL 


0060 

14076 

0 02 

14324 

LDA 

WYWZ 

"Ooo 

14077 

0 07 

14330 

SOB 

WXDT 

0071 

14 100 

0 04 

14272 

STA 

PAP5 

0072 

14 101 

0 16 

14342 

HPY 

SRFY 

007 3 

14102 

000007 

DBL 


0074 

14103 

0 06 

14304 

DAD 

CORF 

0076 

14 104 

0 04 

14304 

DST 

CORF 

P07fi 

14 10 6 

000005 

SGL 


0077 

14106 

0 02 

14325 

LDA 

WXSQ 

0078 

14107 

0 06 

14326 

ADD 

WYSQ 

0070 

14110 

0 04 

14274 

STA 

PAR6 

r 0 60 

14111 

0 16 

14343 

HPY 

SRFZ 

oogi 

14112 

0000C7 

DBL 


0082 

14113 

0 04 

14306 

DST 

CORE 

008.3 

14114 

0 06 

14304 

DAD 

CORF 

0084 

14116 

0401 

67 

LRS 

9 

oops 

14116 

0 06 

00612 

DAD 

•612 

0086 

14 117 

0 04 

00612 

DST 

•612 

0007 

14 12 0 

O00O05 

SGI. 


0088 

14 121 

0 02 

14326 

LDA 

NY SO 

oopq 

14122 

0 06 

14327 

ADD 

WZSQ 

noon 

14 123 

0 04 

14276 

STA 

PAR 7 

0091 

14 124 

0 16 

14351 

HPY 

CRDX 

ooqo 

14 125 

000007 

DBL 


0093 

1412 6 

0 04 

14310 

DST 

CORD 

0 0 q U 

14 127 

0 04 

14312 

DST 

CORC 

onos 

14 13 0 

000005 

5GL 


0096 

14 13 1 

o 02 

14322 

LDA 

WXWY 

0097 

14132 

0 07 

14332 

SUB 

WZDT 

0098 

14133 

0 04 

14300 

STA 

PAR8 

Ooqo 

14 134 

0 16 

14352 

HPY 

CRDY 

0100 

14 135 

000007 

DBL 


0 10 1 

14136 

0 06 

14310 

DAD 

CORD 

0 102 

14137 

0 04 

14310 

DST 

CORD 

0103 

14 140 

000005 

SGL 


0 104 

14141 

0 02 

14323 

LDA 

KXRZ 

0 1"6 

14142 

0 06 

14331 

ADD 

WYDT 

0 106 

14 14 3 

0 04 

14302 

STA 

PAR9 

0 107 

14144 

0 16 

1 4353 

HPY 

CRDZ 

0106 

14 145 

000007 

DBL 


0 109 

14146 

0 06 

14310 

DAD 

CORD 

0110 

14147 

0 04 

14310 

DST 

CORD 

0111 

14150 

0 02 

14264 

DLD 

PAR2 

0112 

1415 1 

0 16 

14345 

HPY 

CREY 

0 113 

14152 

0 06 

14306 

DAD 

COPE 

"114 

14153 

0 07 

14316 

DSB 

TEH 1 
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MICPOCOMP TELECOMMfJNICAT ED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


''IIS 

14 154 

0 

04 

14306 

DST 

COPE 

"1 1 6 

14155 

0 

02 

1 4270 

OLD 

PAP4 

01 17 

14156 

0 

16 

14346 

MPY 

SREX 

0119 

14157 

0 

06 

14306 

DAD 

COPE 

0 119 

14 160 

0 

04 

14306 

DST 

COPE 

0120 

14 16 1 

0 

02 

14272 

DLD 

PAR5 

0121 

14162 

0 

16 

14350 

MPY 

SPEY 

0 122 

14163 

0 

06 

14306 

DAD 

CORE 

0 129 

14 164 

0401 

67 

IPS 

9 

0124 

14165 

r» 

06 

00610 

DAD 

‘610 

0 120 

14166 

0 

04 

0C610 

DST 

• 610 

0126 

14167 

0 

02 

14262 

OLD 

PAP 1 

0 127 

14170 

o 

16 

14354 

MPY 

SPDX 

0129 

14171 

0 

04 

1 4320 

DST 

TEM2 

0129 

14172 

0 

06 

14310 

DAD 

CORD 

0 130 

14173 

0 

04 

14310 

DST 

CORD 

0 13 1 

14 174 

o 

02 

14264 

DLD 

P A R 2 

0132 

14175 

0 

16 

14355 

MPY 

SRDY 

0 133 

14 176 

0 

06 

14310 

DAD 

CORD 

0 134 

14177 

0 

04 

14310 

DST 

CORD 

0 1 3S 

14200 

0 

02 

14266 

DLD 

PAR 3 

0 136 

142C1 

o 

16 

1 4356 

MPY 

SR DZ 

0 137 

14202 

0 

06 

14310 

DAD 

CORD 

0138 

14203 

0401 

67 

LRS 

9 

0 130 

14204 

0 

06 

00606 

DAD 

•606 

0140 

14205 

0 

04 

00606 

DST 

•606 

0141 

14206 

0 

02 

143O0 

DLD 

PAR8 

0 142 

14207 

0 

16 

14357 

MPY 

CRCY 

0 143 

14210 

0 

06 

14312 

DAD 

CORC 

0 144 

14211 

0 

07 

14 320 

DSB 

TEM2 

0 145 

14212 

0 

04 

14312 

DST 

COPC 

0146 

14213 

0 

02 

14302 

DLD 

PAP9 

o 147 

14214 

0 

16 

1 4360 

MPY 

CRCZ 

0148 

14215 

0 

06 

14312 

DAD 

CORC 

0140 

14216 

0 

04 

14312 

DST 

COPC 

0 ISO 

14217 

o 

02 

14264 

DLD 

PAR2 

0151 

14220 

0 

16 

14361 

MPY 

SRCY 

0 152 

1422 1 

0 

06 

14312 

DAD 

CORC 

0 1S3 

14222 

0 

04 

14 312 

DST 

CORC 

0154 

14223 

o 

02 

14266 

DLD 

PA P 3 

0 15 5 

14224 

0 

16 

14362 

MPY 

SRCZ 

0156 

14225 

0 

06 

14312 

DAD 

CORC 

0 157 

14226 

0401 

67 

IPS 

9 

o 158 

14227 

0 

06 

00604 

DAD 

• 60 4 

0 159 

14230 

0 

04 

00604 

DST 

•604 

0160 

1423 1 

0 

02 

1 4270 

DLD 

PAR4 

0 161 

14232 

0 

16 

14363 

MPY 

CRBX 

0162 

1 423 3 

o 

04 

14 314 

DST 

CORB 

o 163 

14234 

0 

02 

14272 

DLD 

PAP 5 

0164 

142 35 

0 

16 

14364 

MPY 

CRBY 

0 165 

14236 

o 

06 

14314 

DAD 

CORB 

0 166 

14237 

0 

04 

14314 

DST 

CORB 

0 167 

14240 

0 

02 

14276 

DLD 

PAP7 

0169 

1424 1 

0 

16 

1 4365 

MPY 

SRBX 

0160 

14242 

0 

06 

14314 

DAD 

CORB 

0170 

14243 

0 

04 

14314 

DST 

CORB 

0 171 

14244 

0 

02 

14300 

DLD 

PAR8 
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MTCPOCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


° 1 7 2 

14245 

0 16 14366 


HPY 

SRBY 

9 17 3 

14246 

0 06 14314 


DAD 

CORB 

9174 

14247 

0401 67 


LRS 

9 

0 175 

1 4280 

0 06 00602 


DAD 

•602 

0176 

14251 

0 04 00602 


DST 

•602 

0177 

14252 

O000C5 


SGL 


0 17fl 

1 425 3 

0 02 00414 


LDA 

VX 

0 170 

14254 

0 04 14333 


STA 

WXPR 

0 160 

14255 

0 02 00416 


LDA 

BY 

0161 

14256 

o 04 .14334 


STA 

WYPR 

0 182 

1 4257 

0 02 00420 


LDA 

WZ 

0 18 8 

14260 

0 04 14335 


STA 

WZPR 

0184 

1426 1 

-0 01 14000 


JMP* 

ROMS 

018 8 

14262 

000000 

PAF1 

D BP 

0 


14263 

000000 




0 106 

14264 

000000 

PAR2 

D BP 

0 


1 4265 

oooooo 




0187 

1 4266 

OOOOOO 

PAR3 

D BP 

0 


14267 

OOOOOO 




0188 

1 4270 

OOOOOO 

PAR4 

DBP 

0 


14271 

oooooo 




0 189 

14272 

OOOOOO 

PAR5 

DBP 

0 


14273 

OOOOOO 




o 190 

14274 

000900 

PAR6 

DBP 

0 


14 275 

OOOOOO 




0191 

14276 

oooooo 

P AR7 

DBP 

0 


14277 

OOOOOO 




0 192 

1 4 300 

oooooo 

PAR8 

DBP 

0 


14 30 1 

oooooo 




0 19 8 

14 3 0 2 

oooooo 

PAR9 

DBP 

0 


14303 

oooooo 




0 194 

14 304 

oooooo 

CORF 

DBP 

0 


14 305 

900000 




0 196 

14306 

oooooo 

COPE 

DBP 

0 


1 4 307 

oooooo 




0 196 

14310 

900000 

CORD 

DBP 

0 


14311 

oooooo 




0 1 Q 7 

14312 

900000 

COPC 

DBP 

0 


14 3 13 

oooooo 




0 19 8 

14314 

000900 

CORB 

DBP 

0 


14315 

oooooo 




0 199 

14316 

OOOOOO 

TEM1 

DBP 

0 


14317 

oooooo 




0200 

14 320 

oooooo 

TEM2 

DBP 

0 


14 32 1 

OOOOOO 




0201 

14 322 

oooooo 

WXWY 

OCT 

0 

02 n 2 

1 4323 

oooooo 

WXWZ 

OCT 

0 

0 20 8 

14 324 

900000 

WYWZ 

OCT 

0 

n ?ou 

14 325 

000000 

WXSQ 

OCT 

0 

0208 

14326 

oooooo 

WYSQ 

OCT 

0 

0206 

14327 

oooooo 

WZSQ 

OCT 

0 

0 20 8 

1 4330 

oooooo 

WXDT 

OCT 

0 

020 « 

1 433 1 

oooooo 

W YDT 

OCT 

0 

0209 

14 33 2 

oooooo 

WZDT 

OCT 

0 

0210 

1 433 3 

oooooo 

WXPR 

OCT 

0 

0211 

1 4 334 

oooooo 

WYPR 

OCT 

0 

0212 

1 4 3 35 

oooooo 

WZPR 

OCT 

0 
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MCPOCOMP TEIFCOMHONTCATED DATA 


DDP-516 ASSEMBLY LISTING 


02 13 

14336 

001145 

CRFX 

DEC 

76. 703B12 

0214 

14337 

161152 

CRPY 

DEC 

-946. 8B12 

02 i s 

14340 

001342 

CRFZ 

DEC 

92. 26B12 

0216 

1 4341 

177205 

SRFX 

DEC 

-47. 405B12 

0217 

14 342 

166667 

SRFY 

DEC 

-585. 15R12 

0218 

1434 3 

000710 

SRFZ 

DEC 

57.02B12 

0219 

14344 

174307 

CR EX 

DEC 

-231. 19B12 

0220 

1 4345 

1 34093 

CREY 

DEC 

-2303. 69B12 

0221 

14346 

135670 

SR EX 

DEC 

-142.88 


14347 

107535 




0222 

14 350 

026176 

SRFY 

DEC 

1423. 76B12 

0221 

14351 

1 55364 

CPOX 

DEC 

-1185. 55B12 

0224 

14 352 

153404 

CRDY 

DEC 

-1311. 52B12 

922 5 

14353 

000704 

CRDZ 

DEC 

56. 609B12 

0226 

14354 

164433 

SR DX 

DEC 

-732. 71B12 

0227 

1 4355 

163254 

SRDY 

DEC 

-810.56B12 

0228 

1 4356 

177351 

SR DZ 

DEC 

-34.986B12 

0229 

14 357 

140046 

CRCY 

DEC 

-2043. 3 3 B 1 2 

0230 

14 360 

003230 

CRCZ 

DEC 

211.Q96B12 

9231 

14361 

023566 

SRC Y 

DEC 

1262.85B.12 

92 32 

14 362 

002023 

SRCZ 

DEC 

130. 464R12 

9233 

1 4363 

913336 

CRBX 

DEC 

731. 81 3B12 

0234 

14 364 

002323 

CR8Y 

DEC 

154. 49B12 

* 23 5 

1 4365 

007042 

SRBX 

DEC 

452. 29B12 

0236 

14366 

176405 

SRBY 

DEC 

-95. 48B12 

0237 


900414 

WX 

EQIT 

•414 

9238 


000416 

WY 

EQU 

• 416 

0239 


900420 

W 7 

EQO 

• 420 

0249 




END 
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PROGRAM NAME: 

SOURCE: PREX 
BINARY: BPREX 

ENTRY POINTS (location): PARC ('06040) 
ACCESSABLE VARIABLES (location): PACC ('06166) 
GENERAL DESCRIPTION: 


This subroutine is essentially equivalent to GARC, the gyro error 
accumulator, except it only accumulates compensated pulses from the six 
PIP As. The only other difference is that when it is time to purge the 
PIPA accumulators, it puts a 1 in location '765 (note the instruction IRS 
'765) which clues the PIPA parity equation solver (program source name 
PPEX, subroutine entry point PPRT) not to doits calculation. This feature 
is solely for timing considerations. 
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MICPOCOMP TELECOM HO NIC AT ED DATA 



DDP- 
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PROGRAM NAME: 

SOURCE: GARC 
BINARY: BG ARC 

ENTRY POINTS (location): GARC ('07344) 

ACCESSABLE VARIABLES (location): GACC 007524) 

GENERAL DESCRIPTION: 

This subroutine accumulates the 6 compensated gyro pulse counts 
(GAPC, GBPC, GCPC, GDPC, GEPC and GFPC) in the six gyro pulse 
accumulators (GAP A, GBP A, GCPA, GDP A, GEPA and GFPA) and then 
stores the accumulations in the six arguments (AARG, BARG, CARG, DARG, 
EARG, and FARG) for the squared error calculator (see documentation 
for program source name CFSE, subroutine entry point SEC A). It also 
accumulates 

2| Aex| + | A 0 Y | + | Aez| 

to be used to increase the maximum allowable total squared error to allow 
for dynamic scale factor and misalignment errors (see documentation for 
GFIS). 

The 6 compensated gyro pulse counts are double precision numbers 
with the high order word being of significance and the low order word being 
carried along as a residual. Thus, every time an LRS 15 instruction operates 
on a gyro pulse count in the accumulator, it is simply to shift the residual 
out. Scaling can best be expressed by giving the representation of one 
gyro pulse for GAPC, GAPA and AARG. 

GAPC oct 00400, 00000 
, GAPA oct 00000, 00400 . 

AARG oct 00000, 00010 

Therefore, the bit granularity of the arguments used by the squared error 
calculator is ± 1/8 pulse. 

In order that the gyro pulse accumulators don't overflow, they are 
periodically purged of old accumulation. Define A (t^, tg) to be the 
accumulation of gyro pulses between times t^ and Every minute starting 
at t = 60, the following purge is performed (let us look just at the A gyro 
accumulator). 
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GAPA = GAPA - ARES 
ARES = ARRS - ARES 
ARRS = GAPA 

ARES = A gyro residual. 

ARRS = A gyro residual residual. 

following this procedure we get: 

at time = 60 

GAPA = GAPA - ARES 
GAPA = A (0, 60) - 0 = A (0, 60) 

ARES = ARRS - ARES = 0-0 = 0 
ARRS = GAPA = A (0, 60) 

at time = 120 

GAPA = GAPA - ARES 

GAPA = A (0, 120) - 0 = A (0, 120) 

ARES = ARRS - ARES = A (0, 60) - 0 = A (0, 60) 

ARRS = GAPA = A (0, 120) 

at time = 180 

GAPA = GAPA - ARES 

GAPA = A (0, 180) - A (0, 60) = A (60, 180) 

ARES = ARRS - ARES = A (0, 120) - A (0, 60) = A (60, 120) 
ARRS = GAPA = A (60, 180) 

at time = 240 

GAPA = GAPA - ARES 

GAPA = A (60, 240) - A (60, 120) = A (120, 240) 

ARES = ARRS - ARES = A (60, 180) - A (60, 120) = A (120, 180) 
ARRS = GAPA = A (120, 240) etc. 

the flow chart follows. 
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/ XI / 


I 

I 

I 

l gacc * cacc ♦ i 
| fWOTF: f-kc c 

| STAFTS OUT * 

1 -fiOCI. ON THE 

| 6«C1TH CAT l TO 
| GARC (AfTFP 1 
| TIN.) GACC Witt 
I EO n M ZFPO) 


•IS OACC = T« YES 

• OB HAS IT • 

•PEEK T .T IT?* 


| TO 

I 

I 

\ 

I 

X 3 | 0 3 


| UPDATE A!.» | 

| ACCUKUt A T OPS | 

1 

I 

I r ° 


• EXIT * 


> (J 

XU \ 05 

I O ACC * -fiooc (SET | 
| TT "P TO W»IT | 

I ANOTHFP TIN) | 


\ 

I 

rs | 06 

I r''POE ALT | 

| ACCUTULATOTS AS | 
I DFSCTTBED | 

I PP p VIO*tSLT I 



PFT'I«»T 


FLOWCHART - GARC 


PACK 01 
of 01 


83 


MTC^OCOIP TELECOMMUNICATED DATA 


DDP-516 ASSEMBLY LISTING 
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PEL 


onn 7 






SO B R 

G A PC 
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SURR 
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O0O00 
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** 
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0000 1 

0 

12 
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00002 

0 

01 

00032 
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00003 

0 

02 

00163 


IDA 
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00004 

0 

04 

00160 


STA 

GACC 

OOOq 

P0O05 

0 

38 

00 162 


I, DX 

=-12 
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00006 

OOQ 00.7 
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0011 

0 0 op 7 

1 

02 

00302 

LOPE 

DLD 

GAPA+12,1 

00 12 

00010 

1 

07 

00140 


DSB 
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00 17 

00811 

1 

04 

00302 


DST 
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0014 

00012 

1 

02 
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DLD 
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07 

00 140 
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1 

04 
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1 

02 
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DLD 
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00016 

1 

04 

00156 


DST 
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00017 

8 

12 
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0 

0 0 20 

00020 

0 

12 
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IRS 

0 

0021 

O002 1 

0 

01 

80007 


JMP 
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0022 

00022 

0 

02 

00774 


DLD 

SUDT 
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0 

07 

00140 


DSB 

SPES 

0024 

00024 

0 

04 

00774 


DST 

SHOT 

0028 

0 0 0 28 

0 

02 

80156 


DLD 
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0028 

00026 

0 

07 

00 1 40 


DSB 

SPES 

0027 

0 0 0 27 

0 

04 

00 140 


DST 

SRES 
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0 

02 
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DLD 
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04 
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DST 

SFPS 
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02 
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0 

06 
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0 

04 

00266 


DST 

GAPA 
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00037 

0401 

73 


LRS 

5 
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0 

04 

00744 


DST 

A A FG 

0037 
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0 

02 

00402 


DLD 
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DAD 
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0 

04 
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DST 
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73 
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DST 
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MICPOCONP TELECOM MU NIC ST ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 
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0 0113 

140497 


TCA 


CORO 

00114 

0 06 00161 


ADD 

STSE 

008 1 

00115 

000007 


DBL 


0082 

00 116 

0491 61 


LRS 

15 

Oo 83 

00117 

0 06 90774 


DAD 

SUDT 
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IT CRCCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 
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PROGRAM NAME 
SOURCE: GFIS 
BINARY: BGFIS 

ENTRY POINTS (location): GFIS (' 2010 ) 

ACCESSABLE VARIABLES (location): KEYG ('2225) 

GENERAL DESCRIPTION: 

This subroutine controls the logic for the gyro failure detection and 
isolation. When called (once every gyro update) it decides which failure 
(first or second) should be searched for using such considerations as gyro 
fail status and which search it made the previous time. It will then store 
in locations '760 and'761 the maximum allowable total squared error (MASE) 
for either the first (FMSE) or second (SMSE) failure search. (FMSE and 
SMSE are modified at the beginning of this subroutine to allow for dynamic 
errors. Location '774 contains a proportion of the sum of the absolute 
values of the total rotations about axes X, Y and Z. Adding the square of 
this sum to FFAD and SFAD gives the modified maximum allowable total 
squared errors FMSE and SMSE). 

It will store in location '762 the squared error ratio for either the 
first fail (FFRT) or second fail (SFRT) isolation criteria (see documentation 
for SEC A, program source name CFSE). In location '763 it will store the 
number of the instrument to be considered failed (see documentation for 
ERDE). It will then call ERDE which, in turn, calls the squared error 
calculator SECA (program source name CFSE). Since the gyro error 
accumulator (GARC) has been called prior to GFIS, SECA has the proper 
arguments for the instrument accumulated measurements. GFIS gives SECA 
the proper total allowable squared error and the proper squared error 
ratio. After the squared errors have been calculated and a decision of 
detection and/or isolation has been made, ERDE will store the decision 
code in location '764 and return to GFIS. GFIS will then decide what the 
gyro fail status should be and store the number of the gyro first and second 
failures in location '316 and '317 respectively. The logic of this program 
is shown in the following flow chart. Note that sense switch 3, if set, will 
prevent any failure from healing. 
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MTCPOCOMP telecommunicated data 



DDP- 

516 ASSEMBLY 

LISTING 


DO ' 1 1 




REL 


PP f)2 




SOBR 

GFTS 

600 3 




SUBR 

KEYG 

p pp 4 

op 00 0 

0 ooooco 

GFIS 

DAC 

** 

n^n r , 

0000 1 

0 02 00774 


L DA 

• 774 


00013 2 

0405 75 


APS 

3 

p P A 7 

OO 00 3 

0 04 00142 


STA 

ATOP 

rr ra 

OOP 04 

0 16 00142 


MPY 

AI OP 

p p p q 

0OP06 

000007 


DBL 


P P 1 P 

00006 

0 04 00142 


dst 

ALOP 

0011 

00007 

0 06 00144 


DAD 

FF AD 

0012 

POO 10 

0 04 00136 


DST 

FMSE 

p P 1 1 

0 p 0 1 1 

0 02 00142 


DLD 

ALOP 

P p 1 u 

OP 0 12 

0 06 00146 


DAD 

SFAD 

p p 1 S 

P')!) 1 3 

3 04 00140 


DST 

SMSS 

PO 16 

OOP 1 4 

000005 


SGL 


0017 

0 0 0 16 

6 02 00316 


L DA 

* 316 

0010 
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1000 4P 
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op n 

0 0 0 1 7 

0 01 00032 


JMP 
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pp 7 0 
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FFTR 

CPA 
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0002 1 
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STA 

KEYG 
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STA 
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LISTING 


PP5S 
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END 
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PROGRAM NAME 
SOURCE: ERDE 
BINARY: BERDE 

ENTRY POINTS (location: ERDE (’06172) 

GENERAL DESCRIPTION: 

This subroutine is called by either the gyro failure detection and 
isolation logic subroutine (GFIS) or the PIP A failure detection and isolation 
logic subroutine (PFIS) and in turn calls the squared error calculator (SEC A, 
program source name CFSE). Core location '763 tells this subroutine which 
instrument is to be considered failed. If location '763 is zero, it means 
that no instrument is to be considered failed and when it calls SECA, it 
must indicate this with a-7 in the index register. SECA will then calculate 
the no fail squared error equations and return with a code in the A register 
which ERDE will store in core location '764 so that its calling program 
(either GFIS or PFIS) can use the result. 

If the failure key (location ’763) is a 1,2, 3, 4, 5 or 6, it indicates 
that the second fail squared error equations are to be calculated considering 
A, B, C, D, E or F as the failed instrument. Again, ERDE will store the 
return from SECA in location '764 for use by GFIS or PFIS. If '763 is a 1 
and instrument A is to be considered failed, MA (see description of SECA, 
program source name CFSE), the accumulated measurement of instrument 
A, must be replaced by 

\/ o 72 (MB - MC - MD + ME + MF) 

the calculation of MA using MB, MC, MD, ME and MF. Then when SECA 
calculates the first fail squared error equations using the new MA and the 
old MB, MC, MD, ME and MF, it gets the same results it would have gotten 
had it used the second fail squared error equations considering A failed. 
Similarly, if the fail key (’763) is a 2, B is considered failed and MB must 
be replaced by 

v/o7T (MA + MC + MD + ME + MF) 

Also, with instrument B failed, the index register must contain a - 2 when 
SECA is called. Similar steps are taken when instruments C, D, E or F 
are to be considered failed. The flow chart for the subroutine ERDE follows: 


93 



I -- -1 

MA * 

{ 77 (MB-MC 

. MD *ME t MF) 



Autoflow Chart Set - Draper Oehrle's Flowchart - tR|)K 
Page 01 of 1 


/»> 


' . is n YES 

r “ 

1 



v fail kev <'763)> 

» 1-7 




N x 0 ? , ' 

l - 

1 



•. S s ^ ' . '■ 

1 ^ _ 

1 



^ NO 

i Call SEC: A 

J . 



1 

» 

1 

1 

1 

L 

i 



1 

1 Error Result-*-('7 64)l 




i T - 

_• 1 • 



, j — 

r ~ - - - x - 




1 Go to circle ( 

1 Return 

1 



1 which contains , 

1 - 

1 



number equal to. 





1 fail key 

1 V 1 





"/Tf - 1 ” 

'T ^ 

' 4 s 


t 6 \ 

r’- ■ • 

r- 

r _iT , 


v _ / 

! I = - 2 J 

; i = -3 ' 

1 I = -4 ' 

| 1 = .5 | 

, I = -6 

1 MB = 1 

l MC = ' 

! MD. ] 

I ME = 1 

i MF = 

| ^. 2 (MA + 1 

] t ! 

/T<- MA + 1 

1 <TTwA*i 

' J~i (MA 

* MC + MD + ME | 

I MB + MD - ME | 

, MB * MC + ME] 

| MB - MC + 1 

! MB + MC - 

1 +• MF) . | 

{ •+ MF)’ ' [ 

1 - MF) ' 

, ' MD - MF) 1 

i MD - ME) 

i . : 

L _ . _ J 





I 


' • Call SECA • 1 

L , J 

I J -j 

I Error Result-W764) 

i , J 

. ’ -1 

1 Return 1 


FLOWCHART - ERDE 


94 


MICPOCOMP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


00 * i 





REL 


0002 





SUBR 

ERDE 

ono3 

00000 

0 

000000 

ERDE 

DAC 

** 

00r>t, 

oooo 1 

0 

02 00763 


L D A 

•763 

n*c^ 

O 0 OC 2 

100040 


SZE 


0006 

OOOO 3 

0 

01 00010 


JMP 

AROE 

0007 

00004 

0 

35 00331 


LDY 

=-7 

0700 

00005 

0 

10 00000 


CALL 

SECA 

0 O 0 <3 

*0006 

0 

04 0C764 


ST A 

<764 

00 10 

0 n 0 0 7 

-0 

01 00000 


JMP* 

ERDE 

0 . 0 1 1 

00 O 10 

0 

04 00000 

AROP 

STA 

0 

0012 

00011 

- 1 

01 00011 

EASE 

JMP* 

EASE, 1 

0013 

00012 

0 

000020 


DAC 

AFAL 

com 

00013 

0 

0*0057 


DAC 

BEAL 

001s 

0 0 , 0 1 4 

0 

0*0116 


DAC 

CFAL 

00 16 

000 16 

0 

000166 


DAC 

DFAL 

0010 

00016 

0 

0*0225 


DAC 

EFAL 

*"1R 

0 O 0 17 

0 

000264 


DAC 

FFAL 

0010 

00020 

''00007 

AFAL 

DBL 


0020 

00021 

0 

02 00746 


L D A 

MB 

0021 

0002 2 

0 

06 00754 


ADD 

ME 

0022 

0**23 

0 

06 00756 


ADD 

ME 

0^23 

0 O 024 

0 

07 *0750 


SUB 

MC 

0*24 

000 25 

0 

07 00752 


SUB 

MD 

ooos 

00026 

0 

04 00160 


STA 

TEM 1 

0026 

00027 

0 

16 00155 


MPY 

RPTT 

Oo 2 7 

"0030 

0 

04 00162 


STA 

TE M2 

00 po 

OOO31 

0 

02 00160 


IDA 

TEM 1 

0020 

0003 2 

000201 


IAB 


no 30 

00033 

0 

16 *0155 


MPY 

RPTT 

0031 

00034 

0 

06 00164 


ADD 

HALF 

0032 

00035 

00020 1 


IAB 


0033 

00 036 

140040 


CPA 


0*3 4 

000 37 

0 

06 00162 


A DP 

TEM2 

0030 

00040 

0 

*4 0C162 


STA 

TEM2 

0036 

OOO 41 

0 

02 0C160 


I, DA 

TEM 1 

on 37 

O 004 2 

0 

16 00156 


MPY 

PPTT+1 

0 03 3 

0004 3 

0 

06 00164 


ADD 

HALF 

0030 

0 0 0 4 4 

140320 


C S A 


0040 

0 0 0 4 5 

000201 


IAB 


0 0 41 

00046 

1400 40 


CRA 


0 0 4 2 

00047 

100001 


SRC 


004 3 

**050 

140401 


C M A 


0044 

0 0 0 5 1 

0 

06 0*162 


ADD 

TEM 2 

0 04 6 

00052 

0 

04 00744 


STA 

MA 

0 046 

00053 

0 

35 00327 


I.DX 

=- 1 

n 0 4 7 

00 05 4 

0 

10 oonoo 


CALL 

SECA 

0048 

00055 

0 

04 00764 


STA 

•764 

0 0 4 0 

00056 

-0 

*1 00000 


JMP* 

ERDE 

0050 

00057 

000007 

BFAL 

DBL 


0051 

00060 

n 

02 00744 


LDA 

MA 

0 06 2 

00061 

0 

06 OC 750 


ADD 

MC 

0063 

00062 

0 

06 00752 


ADD 

MD 

0054 

00063 

0 

06 0C754 


ADD 

ME 

0055 

00064 

0 

06 0C756 


ADD 

MF 

0056 

00065 

0 

04 0016C 


STA 

TEM 1 

0057 

0OQ66 

0 

16 OC 1 55 


MPY 

RPTT 
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0059 

0 0 067 

0 04 00162 


STA 

TEM2 

0059 

00070 

0 02 0C16C 


LDA 

TEM 1 

9060 

00071 

00020 1 


I AB 


0061 

00072 

0 16 00155 


MPY 

RPTT 

O0fi7 

00073 

0 06 00164 


ADD 

HALF 

0063 

00074 

000201 


I AB 


0064 

00075 

140040 


CPA 


0065 

0 0 07 6 

0 06 00162 


ADD 

TEM 2 

0966 

C0077 

0 04 00162 


STA 

TEM2 

onfii 

00 109 

0 02 OC 160 


LDA 

TEM 1 

9069 

00 1 0 1 

0 16 00156 


MPY 

.. RPTT+1 

0069 

00 107 

0 06 O0164 


ADD 

HALF 

0A7A 

OQ103 

140 320 


C S A 


9071 

00 104 

000201 


I A B 


0072 

00105 

140040 


CRA 


A 07 2 

00 106 

100901 


SRC 


0074 

00107 

140 40 1 


CMA 


0076 

001 10 

0 06 00162 


A DD 

TEM 2 

0076 

001 11 

0 04 00746 


STA 

MB 

0077 

001 12 

9 35 00326 


I.DX 

=- 2 

0079 

00113 

0 10 00000 


CALL 

SFCA 

O 079 

00114 

9 04 00764 


STA 

« 764 

0080 

00115 

-0 01 00000 


JMP* 

EPDE 

OOR 1 

00 1 16 

0009 0 7 

CFAL 

DBL 


0092 

00117 

9 02 00746 


LDA 

. MB 

0097 

00 120 

0 06 00752 


ADD 

MD 

0094 

00 1 21 

0 06 00756 


ADD 

ME 

0096 

00 122 

0 07 00744 


SUB 

M A 

0096 

00121 

0 07 00754 


SUB 

MF 

0087 

00124 

0 04 00160 


STA 

TEM 1 

0099 

00125 

0 16 00155 


MPY 

RPTT 

0099 

00126 

0 04 00162 


STA 

TEM 2 

0 090 

00 127 

0 02 00160 


LDA 

TFM1 . 

Oooi 

00130 

0O0201 


I AB 


009 2 

00131 

0 16 90155 


MPY 

RPTT 

0093 

CO 132 

0 06 00164 


ADD 

HALF 

0 0 9 U 

0 0 13 7 

000201 


I AB 


0096 

0 0 1 34 

140049 


CPA 


0096 

OO 1 35 

0 06 00162 


ADD 

TEM2 

0097 

00 136 

0 04 90162 


STA 

TEM 2 

00 0 9 

00137 

9 02 90160 


LDA 

TEM 1 . 

00 90 

00 140 

0 16 00156 


MPY 

PPTT+- 1 

0 loo 

OO 14 1 

0 06 00164 


ADD 

HALF 

oioi 

00 142 

140320 


CS A 


0 107 

00143 

000201 


I AB 


0 107 

0^144 

140040 


CRA 


0 1 0 u 

00 145 

100001 


SRC 


0105 

00 146 

140401 


CMA 


0106 

OO 147 

■ 0 06 00162 


ADD 

TE M2 

01^7 

00150 

0 04 00750 


STA 

MC 

0 109 

00 15 1 

0 35 00325 


T.DY 

=- 3 

0109 

00 152 

0 10 00000 


CALL 

S EC A 

Olio 

00153 

0 04 00764 


STA 

•764 

0 111 

00 154 

-0 01 oocoo 


JMP* 

ERDE , 

0112 

00 155 

034476 

RPTT 

DEC 

. 4472135955BB0 


00 156 

022705 




0 113 

00160 

009000 

TEM1 

DBP 

0 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

■516 ASSEMBLY 

LISTING 



00161 

000000 




0114 

00162 

oooooo 

TEM2 

DBP 

0 


00 163 

000000 




0115 

00164 

oooooo 

HALF 

OCT 

0,40000 


00165 

040000 




0116 

00166 

000007 

DFAL 

DBL 


0117 

00167 

0 02 00746 


L P A 

MB 

0118 

0 0170 

0 06 00750 


ADD 

MC 

7110 

00171 

0 06 00754 


ADD 

ME 

0 120 

00172 

.0 07 00744 


SB B 

MA 

0121 

00 173 

0 07 00756 


SOB 

MF 

0122 

00174 

0 04 00160 


ST A 

TEM1 

0123 

00175 

0 16 00155 


SPY 

RPTT 

0124 

00176 

0 04 00162 


STA 

TEM2 

0128 

00 177 

0 02 00160 


L DA 

TEM 1 

0126 

07 20 0 

000201 


TAB 


0127 

00201 

0 16 00155 


MPY 

RPTT 

0128 

00202 

0 06 00164 


ADD 

HALF 

0120 

0020 3 

000201 


I A B 


0130 

00204 

1407 40 


CPA 


0 131 

00205 

C 06 00162 


ADD 

TEM2 

"13? 

00206 

0 04 00162 


STA 

TE M2 

7 133 

00207 

0 02 00160 


L DA 

TEM 1 

7134 

00210 

7 16 00156 


MPY 

RPTT+1 

7138 

0021 1 

0 06 00164 


ADD 

HALF 

0136 

OC212 

140320 


CSA 


0137 

0021 3 

007271 


TAB 


0138 

00214 

140040 


CRA 


0 1 30 

00215 

100001 


SFC 


0140 

00216 

140401 


CMA 


0 14 1 

00217 

0 06 00162 


ADD 

TEM2 

0142 

07220 

0 04 00752 


STA 

MP 

7 143 

00221 

0 35 00330 


LDX 

= - 4 

0 144 

70222 

0 17 0C00C 


CALL 

SECA 

0145 

00 22 3 

0 04 00764 


STA 

*764 

0146 

00224 

-0 01 00000 


JMP* 

ERDE 

0147 

00225 

000007 

EFAL 

DBL 


0 148 

00226 

0 02 00744 


LD A 

MA 

0140 

00227 

0 06 00746 


ADD 

MB 

0150 

00237 

0 06 00752 


ADD 

MD 

0151 

0023 1 

7 07 0075C 


SUB 

MC 

0152 

00232 

0 07 00756 


SOB 

MF 

0183 

00233 

0 04 00160 


STA 

TEM 1 

7 154 

00234 

0 16 07155 


MPY 

RPTT 

0155 

00235 

0 04 00162 


STA 

TEM 2 

0156 

00236 

0 02 00160 


LD A 

TEM1 

0157 

00237 

000201 


IAB 


0158 

07240 

0 16 00155 


MPY 

RPTT 

0150 

00241 

0 06 00164 


ADD 

HALF 

0160 

C 0 24 2 

000201 


TAB 


016 1 

00 24 3 

140040 


CF A 


7162 

00244 

0 06 00162 


ADD 

TEM2 

7163 

00245 

0 04 00162 


STA 

TEM 2 

016 4 

00246 

0 02 00160 


IDA 

TEM1 

0165 

70247 

0 16 00156 


MPY 

RPTT+- 1 

7166 

00250 

0 06 9C164 


ADD 

HALF 

0167 

0025 1 

140320 


CSA 
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MTCPOCOMP TFT, PC OH MIJ NIC AT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


n i6P 

00252 

000201 


IAB 


"169 

00253 

140040 


CRA 


OTTO 

00254 

100001 


SRC 


0171 

00255 

140401 


CHA 


0 172 

00256 

0 06 00162 


ADD 

TEH 2 

017 3 

00257 

0 04 00754 


STA 

HE 

0 174 

0 0 260 

0 35 00324 


LDX 

=-5 

0175 

00261 

0 in 00000 


CALL 

SECA 

0 176 

"0?62 

0 04 00764 


STA 

• 764 

0 177 

00263 

-0 01 00000 


J HP* 

FRDE 

o 1 78 

"0264 

000007 

FFAL 

DBL 


0 1 70 

00268 

0 02 00744 


LDA 

HA 

0180 

00266 

0 06 00746 


ADD 

MB 

0 18 1 

00267 

0 06 007 50 


ADD 

MC 

0 182 

00270 

0 07 00752 


SOB 

HD 

oTbY 

"00271 

0 07 00754 


SUB 

ME 

0 184 

00272 

9 04 00160 


STA 

TEH 1 

0 185 

00273 

0 16 00155 


HP Y 

RPTT 

0 186 

00274 

0 04 00162 


STA 

TEH 2 

0187 

O0275 

0 02 0C160 


LDA 

TEM1 

0 18« 

00276 

00020 1 


IAB 


0 189 

00277 

0 16 00155 


HPY 

RPTT 

0 1 QO 

no 300 

0 06 00164 


ADD 

HALF 

0191 

00 30 1 

000201 


IAB 


0192 

on 302 

140040 


CPA 


0197 

o n 303 

0 06 00162 


ADD 

TE M2 

0 194 

00 30 4 

0 04 00162 


STA 

TFM 2 

0 195 

00305 

0 02 0016C 


LDA 

TEH1 

o 1 08 

r 0 306 

0 16 00156 


HPY 

RPTT+1 

0 197 

0 0 707 

0 06 00164 


ADD 

HALF 

0198 

00 310 

140320 


CS A 


0199 

00311 

000201 


IAB 


n 2 oo 

"0312 

140040 


CRA 


0 20 1 

00 31 3 

100001 


SPC 


0202 

"0314 

140401 


CHA 


0203 

003 15 

0 06 00162 


ADD 

TFH2 

a 9 n 4 

On 3 16 

0 04 00756 


STA 

MF 

n 2 n q 

O0317 

0 35 00323 


LDX 

=-6 

0 206 

00 320 

0 10 00000 


CALL 

SECA 

A 2 07 

0032 1 

0 04 00764 


STA 

•764 

0 2 0° 

O0 322 

-0 01 00000 


JMP* 

ERDE 

n or 9 


000744 

HA 

FOU 

•744 

02 1" 


000746 

MB 

ECU 

HA +2 

0211 


000750 

HC 

E 00 

H A + 4 

"2 12 


000752 

HD 

EOU 

MA + 6 

0213 


000754 

MF 

FOU 

MD+2 

0214 


000756 

MF 

EOT! 

MD + 4 

0 A 1 8 

00323 

177772 


END 



00324 

177773 





00725 

177775 





A A 3 26 

177776 





00327 

177777 





00330 

177774 





On 33 1 

177771 
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PROGRAM NAME 
SOURCE: CFSE 
BINARY: BCFSE 

RELATED MEMOS: FAILURE ISOLATION IN SIRU (OEHRLE) 

ENTRY POINTS (location): SEC A ('06524) 

GENERAL DESCRIPTION: 

This subroutine, when called, will calculate either the first or second 

squared errors of instruments A-F from a set of accumulated measurements 

(MA - MF) stored in the base sector of the DDP 516, decide whether the 

total squared error is greater than some limit (also stored in the base 

sector) and if it is, decide if any instruments squared error exceeds a 

certain fraction (also stored in the base sector) of the totcil squared error. 

Then it will return with a code in the A register indicating the result of 

the above decisions. If during the calculations the error in any instrument 
1 2 

exceeds or equals 2 pulses (an overflow condition), or if the total squared 

24 

error exceeds or equals 2 pulses squared, the return code in the A register 
will indicate that the calculations could not be completed due to huge errors 
in one or more instruments. 

The arguments MA - MF (see documentation for subroutines GARC 
+ PREX) are stored in locations '744 - '757 and are six double precision 
numbers. If the calling program (see documentation for subroutine ERDE) 
wishes the squared errors calculated for the second fail detection with 
say instrument A failed, it will replace MA with what MB - MF calculate 
for MA (substituting this new MA and the old MB - MF into the first fail 
equations calculates the second fail squared errors for instruments B - F 
and therefore, eliminates writing 6 sets of second fail equations) and put a 
-1 in the index register. If instrument B is failed it will calculate MB 
from the other 5 measurements and put a -2 in the index register, etc. 


The following are the return codes: 



code meaning 

0 TSE (total squared 

error) did not exceed 
MASE (maximum 
allowable squared 
error stored in the base 

sector in location *760). ...... 

1-6 TSEO did exceed MASE 

and the squared error 
of instrument A (for 
code 1) B (for code 2) 
etc. exceeded FONT TSEO 
(FONT is the squared 
error ratio criteria 
to isolate 

a failure. It is .44 
for a first fail isolation 
and .38 for a second 
fail isolation and is put 
in the base sector in 
location '762 by the 
calling program (see 

documentation for subroutines GF1S & PFIS). 

7 TSEO exceeded MASE 

but no instrument's 
squared error exceeded 
FONT TSEO 

8-13 There was a huge 

1 2 

error > 2 pulses 
when calculating the 
error of instrument 
A (for code of 8) B (for code 
of 9) etc. 
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14 In summing ASEO 

through FSEO (A squared error 

through F squared error) 

to get TSEO, an 

overflow occurred 
24 

(the sum was >2 
pulses squared) 

The subroutine flow chart follows: 
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AUTOFLOW CHART SET - DRAPER OEHRlE'S FLOWCHART - SECA 


• TBS* 

DOES 1=0? •— 


— — >o 

X 3 1» | 11 

| SECOND FAIL | 
| SEARCH WITH A | 
I FAILED | 


| SET AE0=0, ASE0=0 


I A SO = 1A - t 

I SORT (.2) (IB - HC J 
1 - HD ♦ HE ♦ HP) f 


( (A, 8) » (AEO( f 


IS (A) OF (A/ P) = 
0. (IE, IS. AP'' 
SHALL ENOUGH TO 
FIT IS THE IS 
BITS OF THE 9 
P ROISTER) ? 


SEE MOTE • 

ABOVE * 


ASEO = B**2, | 

SINCE (B) OF | 

( A, B) HAS AIL ABO | 

• I 


I HUGE ASO, PUT B | 
I IN ACCIIHULATOP | 


1=1*1 -- REPEAT ) 
ABOVE FO? 1 

3,C,D,E&P | 


- VSE<? 
PS*0 


HAS ( A, B) 
•OVERFLOWED?* 


-01 . 10* — >rj 
1 36 | 


POT 14 IN 
ACCUHOLATOB 


FLOWCHART - SECA 
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A'lTOPIOW CH A °T SET - DRAPER OEHPI.f'S FLOWCHART - SEC* PAGE 02 

— ol 02 


Cl. 10 - 

XI 2 


(A,P) = (A,P) 

bseo 


HAS (A f B) 

• OVER®!. OW P. D ? • 


| MO 

1 

f 

I 

I 

y to i 

(A,B) = ( A, P) 
CSEO 


fA,R) = ( A , R) 
RASE 

I 

I 

I 


HAS (A,D) 
•OVEP c LOVED?* 


t 
1 
1 
I 
> 

I 

1 <A,B> * ( A, R) 

| DSE1 


YF3 

I 

I 

I 

r. 

'x?f> 


THIS MEANS TSEO < | 
11 AS F, PUT f IN | 
1 


I YES 


,| ACC'! VILATOP 

1 


1 . 

1 

1 2C 

X23 ) 

12 

* EXIT * 

| TEH 2 = (FONT) 

1 (TSEO) 

1 

1 

R ETH°N 

1 

1 

X24 1 

1 3 



H AS ( A , B) 
•OVERFLOWED?* 


. IS . 

* Jr’?s 


\ ( A , B) = (A f B) ♦ 1 
| ESFO WHICH = ASF'' | 
| *RS®r ♦ ... ♦FSF.P | 


IS ASEO >* 
• TEH 2 ? 


1 NO 

I 

I 

I 

I 


- 02 . in* — >n 

X 3 H I 


ptt r m • 

ACCUMULATOR 


* * YES 

HAS (A,R) •— , 

•OVERFLOWED?* t 

* * 1 
• • I 


• REPEAT 
ABOVE FOR 

• THRU P? 


I NO 

I 

I 


Y.32 


SINCE NO 
INSTRUMENTS 
SQUARED ERROR IS 
>= (PONT) (TSEP), 
RETURN WITH 7 TV 
ACCUHULATOR 


) 
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MTCROCOMP TELECOM BUN IC AT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


000 1. 




SOBR 

SECA 

0002 




PEL 


0001 

00000 

0 00OO00 

SEC A 

DAC 

** 

0004 

00001 

000007 


DBL 


OOOS 

00002 

0 12 00*00 


IPS 

0 

0006 

00003 

0 01 00012 


JMP 

AC AL 

0007 

00004 

140040 


CRA 


0008 

00005 

*00201 


TAB 


0000 

00006 

140040 


CRA 


0010 

00007 

0 04 00224 


STA 

AEO 

onii 

000 10 

0 04 00326 


STA 

ASEO 

0012 

00O11 

0 01 00060 


J HP 

BTFC 

0013 

00012 

0 02 00750 

A CAL 

L DA 

NC „ 

0014 

00013 

0 06 00752 


ADD 

MD 

0015 

00014 

0 07 00746 


SOB 

MB 

0016 

0O0 15 

0 07 00754 


SOB 

ME 

0017 

000 16 

0 07 OC 756 


SUB 

MF 

0018 

00017 

0 04 00216 


STA 

TEM1 

0010 

000 20 

0 16 0C213 


MPY 

RPTT 

0020 

OOC21 

0 04 00220 


STA 

TE M2 

0021 

00022 

* 02 00216 


L DA 

TEM 1 

0022 

00023 

0*02*1 


IAB 


0023 

00024 

0 16 00213 


MPY 

RPTT 

00 24 

00025 

0 06 0*222 


ADD 

HALF 

0025 

00026 

000201 


IAB 


0026 

0*027 

140040 


CPA 


0 0 27 

00030 

0 06 00220 


ADD 

TEM2 

0028 

00031 

0 04 00220 


STA 

TEM2 

0020 

0*0 3 2 

0 02 00216 


L DA 

TEM 1 

0030 

00033 

0 16 00214 


MPY 

BPTT+1 

0031 

00034 

0 06 00222 


ADD 

HALF 

0032 

00035 

140320 


CS A 


0033 

00*36 

000201 


IAB 


0034 

C**37 

140*40 


CRA 


0035 

00040 

100001 


SRC 


0036 

00041 

140401 


CMA 


0037 

00*4 2 

0 06 00220 


ADD 

TEM 2 

0038 

00043 

0 06 00744 


ADD 

MA 

0039 

00044 

0 04 00224 


STA 

AEO 

0040 

0*045 

101400 


SHI 


0041 

00046 

0 01 00051 


JMP 

AEPO 

0042 

00047 

0 07 00224 


SOB 

AEO 

0043 

00*50 

0 07 00224 


SOB 

AEO 

0044 

00051 

101040 

AEPO 

SNZ 


0045 

0*052 

0 01 00054 


JMP 

SESE 

0046 

00053 

0 01 00565 


JMP 

HO AE 

0047 

00054 

000201 

SESE 

IAB 


0048 

00055 

0 04 00326 


STA 

ASEO 

0049 

00056 

0 16 00326 


MPY 

ASEO 

0050 

00057 

0 04 00326 


STA 

ASEO 

0051 

00060 

0 12 00000 

BTFC 

IRS 

0 

0052 

00061 

0 01 00070 


JMP 

BCAL 

CO 53 

00062 

140040 


CRA 


0054 

00063 

0002*1 


TAB 


0055 

00064 

140*40 


CRA 


0056 

00065 

0 04 0*226 


STA 

BEO 

0057 

00066 

0 04 00330 


STA 

bseo 
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MTCF OCOM P TELECOMMUNICATED DATA 



DOP- 

516 ASSEMBLY 

LISTING 


0050 

ED 0 6 7 

0 01 00141 


JMP 

CTFC 

0050 

00070 

140040 

BCAL 

CPA 


9969 

0007 1 

00020 1 


IAB 


9961 

Oo 0 72 

140040 


CPA 


nn 62 

00073 

0 07 00744 


SUB 

MA 

9 96 3 

0P«7U 

0 07 00750 


SUB 

MC 

0954 

00075 

0 07 00752 


SUB 

MD 

A C 6 6 

00 076 

0 07 00754 


SUB 

ME 

0066 

OOO 77 

0 07 00-756 


SUB 

MF 

0067 

0 0 1 0 .7 

0 04 rt 0216 


ST A 

TEM1 

0060 

CO 10 1 

0 16 00213 


SPY 

PPTT 

0 0 0,0 

00 102 

0 04 00220 


STA 

TE M2 

0070 

0010.3 

0 02 00216 


L DA 

TEM1 

9 971 

0 0 1 0 4 

009 20 1 


TAB 


0072 

00105 

7 16 00213 


SPY 

PPTT 

0073 

A 0 1 0 6 

0 96 00222 


ADD 

HALF 

0 07 a 

00 107 

090201 


IAB 


0 0 7 6 

''OIIO 

149040 


CPA 


0 070 

0 0 1 1 1 

0 06 00229 


ADD 

TEM 2 

0 077 

00112 

9 04 00220 


STA 

TE M2 

0070 

00113 

0 02 00216 


L DA 

TEM1 

0079 

0 0 114 

0 16 00214 


SPY 

PPTT+1 

OOOO 

00116 

0 96 00222 


ADD 

"HALF 

0091 

00116 

140320 


C S A 


0 00 2 

00 1 17 

900201 


TAB 


0 08.1 

00 1 20 

140940 


CPA 


popu 

00121 

190001 


SPC 


0095 

00122 

140401 


C M A 


o opr, 

00 123 

0 06 00 220 ■ 


ADD 

TEM 2 

0087 

00124 

0 06 00746 


ADD 

MP. 

pop 8 

00 125 

0 94 00226 


STA 

BED 

0099 

00126 

101490 


SMI 


O 0°0 

00 127 

0 01 00132 


JMP 

BEPO 

0091 

00130 ' 

0 07 00226 


SUB 

BEO 

0092 

00131 

0 07 00226 


SUB 

BEO 

0093 

00 132 

101049 

nEPO 

SNZ 


0094 

00 133 

0 01 00135 


JMP 

LTSE 

0006 

OP 134 

0 01 00570 


JMP 

HOPE 

0006 

00 135 

00020 1 

LTSE 

IAB 


0 0 97 

0 0 1 3 6 

0 04 00330 


STA 

BSEO 

0090 

00 1 37 

0 16 00330 


SPY 

BSFO 

0 0°9 

p <i 1 4 a 

9 04 003 30 


STA 

BSEO 

OlOo 

00 14 1 

0 12 00000 

CTFC 

IPS 

0 

0 101 

00 14 2 

0 91 90151 


JMP 

CCAL 

0 102 

0 0 14 3 

1 4 A 0 4 0 


CPA 


0 1 00 

00144 

999-201 


IAB 


0104 

00 145 

149040 


CPA 


0108 

00146 

0 04 00230 


STA 

CE9 

0 1 06 

0 0 14 7 

0 04 00332 


STA 

CSEO 

0107 

00 1 50 

0 01 0C244 


JMP 

DTEC 

0108 

00 151 

9 02 90744 

CCAL 

L DA 

MA 

0109 

00 152 

0 06 00754 


ADD 

ME 

01 10 

00 153 

0 07 00746 


SUB 

MB 

oill 

00154 

0 07 00752 


SUB 

MD 

0112 

00 155 

0 07 00756 


SUB 

MF 

0 113 

00 166 

0 94 00216 


STA 

TEMl 

0 114 

00 157 

9 16 90213 


SPY 

PPTT 
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MICROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


Oils 

00160 

0 04 00220 


STA 

TEH2 

0116 

00161 

0 02 0C216 


LDA 

TEM1 

OUT 

00162 

000201 


I A B 


0118 

00163 

0 16 00213 


MPY 

RPTT 

0119 

00164 

0 06 00222 


ADD 

HALF 

0120 

00165 

000201 


IAB 


0121 

00166 

140040 


CPA 


0122 

00167 

0 06 00220 


ADD 

TE M2 

0123 

00 170 

0 04 00220 


STA 

TEH2 

0124 

00171 

002 00216 


LDA 

TEM1 

0125 

00172 

0 16 00 21-4 


MPY 

RPTT* 1 

0126 

00173 

0 06 00222 


ADD 

HALF 

0127 

00174 

140320 


CSA 


0128 

00175 

000201 


TAB 


0129 

00176 

140040 


CRA 


0130' 

00177 

100001 


SRC 


0131 

00200 

140401 


CM A 


0132 

00201 

0 06 00 220 


ADD 

TEM2- 

0133 

00202 

0 06 00750 


ADD 

H'C 

0134 

00203 

0 04 00230 


STA 

CEO 

"135 

00204 

101400 


SMI 


0136 

00205 

0 01 00210 


JMP 

CEPO 

0137 

00206 

0 07 00230 


SUB 

CEO 

0138 

00207 

0 07 00230 


SUB 

CEO 

0139 

00 210 

101040 

CEPO 

SNZ 


0140 

0021 1 

0 01 00240 


JMP 

NBSE 

0141 

00212 

0 01 00573 


J HP 

HUCE 

0 142 

00213 

034476 

RPTT 

DEC 

.4472135955BB0 


00214 

022705 




<>143 

00216 

000000 

TEM 1 

DBP 

0 


00217 

000000 




0144 

00220 

0000O0 

TEM2 

DBP 

0 


00221 

, 000000 




0145 

00222 

oooooo 

HALF 

OCT 

0,40000 


00223 

040000 




0146 

00224 

oooooo 

AEO 

DBP 

0 


00225 

oooooo 




0147 

00226 

oooooo 

BEO 

DBP 

0 


00227 

oooooo 




0148 

00230 

oooooo 

CEO 

DBP 

0 


00231 

oooooo 




0149 

00232 

oooooo 

DEO 

DBP 

0 


00233 

oooooo 




0150 

00234 

oooooo 

EEO 

DBP 

0 


00235 

oooooo 




0151 

00236 

oooooo 

FEO 

DBP 

0 


00237 

oooooo 




0152 


000326 

ASEO 

EOU 

•326 

0153 


000330 

BSEO 

EQU 

• 330 

0154 


000332 

CSEO 

EQU 

•332 

0155 


000436 

DSEO 

EQU 

•436 

0156 


000440 

ESEO 

EQU 

•440 

0157 


000442 

FSFO 

EQU 

• 442 

0158 


000574 

TSEO 

EQU 

•574 

0159 

00240 

000201 

NBSE 

IAB 


0160 

00241 

0 04 00332 


STA 

CSEO 

0161 

00242 

0 16 00332 


MPY 

CSEO 
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P1TCP0C0 BP T EI, ECO BBU NIC AT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0 162 

0024 3 

0 04 00332 


STA 

CSFO 

'■'16 3 

0 0 2 4 4 

0 12 0 r 0 OC 

DTFC 

IRS 

0 

o 164 

00245 

0 01 00254 


J PIP 

DC AL 

o 16 c 

00246 

140040 


CPA 


0 166 

00 24 1 

00020 1 


I A B 


0167 

00250 

1 400 40 


CPA 


o 1 6 9 

00251 

0 04 00232 


STA 

DEO 

0160 

00 252 

0 04 00436 


STA 

DSEO 

0 170 

00253 

0 oi Of 322 


JBP 

ETFC 

0 171 

00254 

0 02 Q0744 

DC AL 

LD A 

BA 

0 172 

n 0 255 

0 06 00756 


ADD 

BF 

9 17 1 

0 0 25 6 

0 07 00746 


SUB 

BB 

0 17 4 

00 257 

0 07 00750 


SUB 

BC 

o 1 7 S 

00260 

0 07 00754 


SUB 

BE 

0 176 

0026 1 

0 04 06216 


STA 

TEB 1 

0 177 

00262 

o 16 00213 


BP Y 

RPTT 

0173 

00263 

0 04 00220 


STA 

TEM 2 

o 1 79 

0 0 2 64 

0 02 or 21 6 


IDA 

TE P1 1 

o IRA 

C0265 

90A 2a 1 


TAB 


9 19 1 

00 266 

0 16 00213 


BPY 

PPTT 

0 19 2 

00267 

o 06 00222 


ADD 

HALF 

0191 

A A 2 7 0 

0 A A 20 i 


T AB 


'"'184 

0027 1 

1 400 40 


CRA 


0 185 

00272 

0 06 00220 


ADD 

TFB2 

0 186 

0 0 27 3 

o 04 00220 


STA 

TEB 2 

0 187 

00274 

a 02 00216 


IDA 

TFB1 

0 189 

00275 

0 16 0C214 


BPY 

PPTT+1 

A 199 

00276 

0 06 00222 


ADD 

H A I? 

0 1 90 

00279 

140320 


CS A 


0191 

00 300 

000201 


TAB 


0 19 2 

oo 30 1 

1 400 40 


CPA 


0 197 

0 0 302 

1O0OO1 


SPC 


0194 

ao 30 .3 

140401 


CB A 


0 195 

0 a 3 o 4 

0 0 6 00 2 70 


ADD 

TFB2 

0 196 

00305 

0 06 00752 


ADD 

BD 

0 190 

90306 

0 04 00232 


STA 

DEO 

0 199 

a a 3 n 7 

191400 


SB T 


0 190 

003 10 

0 0 1 00 31 3 


JP1P 

DEPO 

o 2 oo 

0031 1 

0 09 00232 


SUB 

DEC 

0201 

00 312 

0 a 7 90232 


SUB 

DEO 

0202 

00 3 1 3 

101040 

DEPO 

SNZ 


0203 

0 0 3 14 

o 0i 00316 


JP1P 

RSSS 

0 2 n 4 

00315 

0 01 09576 


JBP 

HUDE 

0 20 5 

00 3 16 

000201 

F5SE 

LAB 


0206 

00 3 17 

0 04 00436 


STA 

DSEO 

0207 

00320 

0 16 90436 


BPY 

DSE9 

0 2 08 

00321 

0 04 00476 


STA 

DSEO 

0 209 

00 322 

0 12 00 0 OO 

ETFC 

IBS 

0 

0210 

00 323 

0 0i 99-3 32 


JBP 

ECAL 

0211 

00 3 24 

1400 40 


CPA 


0212 

0 0 3 2 5 

00020 1 


TAB 


0213 

00 326 

1 4 00 40 


CPA 


02 14 

00 320 

0 04 0O73U 


STA 

EFO 

n 2 1 5 

00330 

0 04 00440 


STA 

ESEO 

n 2 1 6 

00 3 3 1 

0 01 00400 


JBP 

FT FC 

0219 

0 0 3 3 2 

9 02 00 750 

ECAL 

LDA 

BC 

0218 

oa 33 3 

0 06 90756 


ADD 

BF 


107 



MICPOCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0219 

00334 

0 07 00744 


SOB 

MA 

0220 

0 0 3 3 5 

0 07 00746 


SOB 

MB 

0221 

00336 

0 07 00752 


SOB 

MD 

0222 

00337 

0 04 00216 


STA 

TEM1 

0 222 

00340 

0 16 00213 


MPY 

RPTT 

022U 

00341 

0 04 00220 


STA 

TEM2 

0225 

00342 

0 02 00216 


LDA 

TEH 1 

0226 

00343 

000201 


IAB 


0227 

00344 

0 16 00213 


MPY 

RPTT 

0228 

00345 

0 06 00222 


ADD 

HALE 

0229 

80 346 

000201 


IAB 


0 2 30 

00347 

140040 


CRA 


0231 

00 350 

0 06 00220 


ADD 

TEH2 

8232 

0035 1 

0 04 00220 


STA 

TEH2 

0 2 3 3 

00352 

0 02 00216 


LDA 

TEH 1 

0 23 4 

00 353 

0 16 0021 4 


MPY 

RPTT*- 1 

0235 

00354 

0 06 00222 


ADD 

HALF 

0236 

00355 

140320 


CS A 


0237 

00356 

000201 


IAB 


d 2 3 8 

00357 

140040 


CRA 


0239 

00 360 

100001 


SRC 


0290 

0036 1 

140481 


CM A 


024 1 

00 362 

0 06 00220 


ADD 

TEM2 

0242 

00363 

0 06 00754 


ADD 

ME 

8 243 

00364 

0 04 00234 


STA 

EEC 

0244 

00365 

101400 


SHI 


0245 

00366 

0 01 00371 


JMP 

EEPO 

0246 

0 C 3 6 7 

0 07 00234 


SOB 

EEC 

0247 

00370 

0 87 00234 


SOB 

EEO 

8248 

00371 

101040 

EEPO 

SNZ 


024^ 

00372 

0 01 00374 


JMP 

LESE 

n 250 

0 0 373 

0 01 00601 


JMP 

HOEE ' 

0251 

0 0 374 

000201 

LESE 

IAB 


D 2 52 

00375 

8 04 00440 


STA 

ESEO 

0 253 

00376 

0 16 00440 


MPY 

ESEO 

8254 

00377 

0 04 00440 


STA 

ESEO 

0255 

C 0 40 0 

0 12 00000 

FTPC 

IRS 

0 

0256 

00401 

0 01 00410 


JMP 

FCAL 

0257 

00402 

140040 


CRA 


0258 

00403 

800201 


IAB 


0259 

00404 

140040 


CRA 


0260 

00405 

0 04 00236 


STA 

FEO 

026 1 

00406 

0 04 00442 


STA 

FSEO 

0262 

00407 

0 01 00456 


JMP 

NTFC 

0 26 3 

00410 

0 02 00752 

FCAL 

LDA 

HD 

0264 

0041 1 

0 06 00754 


ADD 

ME 

0265 

00412 

0 07 00 744 


SOB 

MA 

0266 

80413 

0 07 00746 


SOB 

MB 

0267 

00414 

0 07 00750 


SOB 

MC 

0268 

004 15 

0 04 00216 


STA 

TEM1 

0269 

00416 

0 16 00213 


MPY 

RPTT 

0270 

00417 

0 04 00220 


STA 

TE M2 

0271 

00420 

0 02 00216 


LDA 

•TEM 1 

0272 

00421 

000201 


IAB 


0273 

00422 

0 16 00213 


MPY 

RPTT 

0274 

00423 

0 06 00222 


ADD 

HALF 

0275 

00424 

000201 


IAB 
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MICPOCOMP TELECOMMUNICATED DATA 



DDD- 

516 ASSEMBLY 

LISTING 


0276 

00 4 25 

140040 


CRA 


r 2 "»7 

00426 

0 06 90220 


ADD 

TEM2 

0 ?7B 

0 0 4 2 7 

0 04 00220 


STA 

TEM2 

0270 

OO 430 

0 02 00216 


IDA 

TEM 1 

0060 

0043 1 

0 16 00214 


MPY 

RPTT* 1 

020 1 

9 r 4 32 

0 06 09722 


ADD 

H A T, F 

0202 

0 0 4 3 .3 

140320 . 


C S A 


q?S 3 

00434 

9 0 0 2 C 1 


TAB 


o 20 a 

00435 

140040 


CRA 


0 20 o 

904 36 

1 0 0 9 0 1 


SRC 


0206 

004 37 

140401 


CMA 


o 207 

130447 

0 06 00220 


ADD 

TEM 2 

0200 

99441 

9 06 90756 


ADD 

MF 

0200 

00442 

9 94 00236 


STA 

■ FEO 

0 oqo 

99 44 3 

101499 


SMI 


020 1 

99444 

0 01 09447 


JMP 

FEPO 

0 0 0 0 

9 q 4 4 s 

0 07 00236 


SOB 

FFO 

0203 

9 9 4 4 6 

0 07 00236 


SOB 

FEO 

o 29 u 

9 q 4 4 7 

101049 

FEPO 

SNZ 


o 296 

99450 

0 Cl 00452 


JMP 

VMSE 

0206 

9 0 4 51 

0 01 90694 


JMP 

HOFF 

0 297 

9 9 4 5 2 

090 29 1 

vmsf 

TAB 


0 290 

00453 

q 04 00442 


STA 

FSFO 

0 200 

00454 

0 16 00442 


MPY 

fsfo 

0300 

09455 

9 04 97442 


STA 

FSEO 

0301 

09 456 

9 0* 97326 

NTFC 

ADD 

AS EO 

0302 

99457 

19970 1 


SRC 


0 303 

0 0 4 6 0 

0 01 00562 


JMP 

OVFL 

0304 

9 9 4 61 

o 06 00330 


ADD 

BSEO 

03^ 

00462 

10099 1 


SRC 


0 3o.fi 

99463 

0 01 9056? 


JMP 

OVFL 

0 3 1-7 

n 04fi4 

9 06 00332 


ADD 

CSFO 

0 3 00 

9 9 4 6 5 

10090 1 


SRC 


O39O 

99466 

9 01 00562 


JMP 

OVFL 

0 3 10 

9 9 4 6 7 

0 06 09436 


ADD 

DSFO 

0311 

99 4 70 

1O0 n 0 1 


SRC 


0012 

0947 1 

0 91 90562 


JMP 

OVFL 

03 1 3 

00 4 7? 

9 06 99440 


ADD 

FSFO 

0 314 

9 q 4 7 3 

100001 


SRC 


0 316 

q 9 4 7 4 

9 Oi 99662 


JMP 

OVFL 

0316 

00476 

0 04 90574 


STA 

TSFO 

0 317 

90476 

0 07 00760 


SUB 

MASE 

0 310 

99477 

1 99400 


SPI. 


0319 

99590 

0 9i 00557 


JMP 

ZRTO 

0320 

09501 

0 02 00574 


LDA 

TSFO - 

0321 

99502 

0 16 00762 


MPY 

FONT 

0 3 22 

99 59 3 

0 94 90220 


STA 

TFM2 

0323 

9 0 60 4 

0 02 00674 


LD? 

TSFO 

A 324 

00595 

90029 1 


TAB 


n 326 

90606 

0 16 09762 


MPY 

FONT 

n 326 

99507 

90 929 1 


TAB 


0320 

qo6 10 

140040 


CRA 


03 29 

0951 1 

0 06 00 220 


ADD 

TEM2 

0 3 2° 

99512 

0 04 09220 


STA 

TEM 2 

9330 

9 0 513 

0 35 006 17 


T,D X 

= 1 

033 1 

90514 

0 02 99326 


LDA 

ASFO 

9 3 3 2 

99516 

9 07 09220 


SUB 

TFM2 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

■516 ASSEMBLY 

LISTING 


0 333 

00516 

101400 


SMT 


0 33 4 

00517 

0 01 00554 


JMP 

FOND 

033 5 

00520 

0 12 00000 


IPS 

0 

0336 

00521 

0 02 00330 


L DA 

BSEO 

0337 

00522 

0 07 00220 


SUB 

TEM2 

0330 

00523 

101400 


SMI 


0339 

00524 

0 01 00554 


JMP 

FOND 

0340 

00525 

0 12 00000 


IPS 

0 

0341 

00526 

• 0 02 00332 


LDA 

CSEO 

0342 

00527 

0 07 00220 


SUB 

TEM2 

0343 

00530 

101400 


SMI 


0344 

00531 

0 01 00554 


JMP 

FOND 

0345 

00532 

0 12 00000 


IPS 

0 

0346 

00533 

0 02 00436 


LDA 

DSEO 

0347 

00534 

0 07 00 2 20 


SUB 

TEM2 

0348 

00535 

101400 


SMI 


0 34 9 

00536 

0 01 00554 


JMP 

FOND 

0350 

0 053 7 

0 12 00000 


IRS 

0 

0351 

00540 

0 02 00440 


LDA 

ESEO 

0 35 2 

00541 

0 07 00220 


SUB 

TEM2 

0353 

00542 

101400 


SMT 


0 354 

00543 

0 01 00554 


JMP 

FOND 

0355 

00544 

0 12 OODOO 


IPS 

0 

0 356 

00545 

0 02 00442 


I. DA 

FSEO 

0357 

00546 

0 07 00220 


SUB 

TEM2 

0358 

00547 

101400 


SMI 


0 359 

00550 

0 0.1 00554 


JMP 

FOND 

0360 

00551 

000005 


SGL 


0 361 

00552 

0 02 00616 


LDA 

=7 

0362 

00553 

-0 01 0.0000 


JMP* 

SECA 

0363 

00554 

000005 

FOND 

SGL 


0364 

00555 

0 02 00000 


LDA 

0 

0365 

00556 

-0 01 00000 


JMP* 

SECA 

0366 

00557 

000005 

ZPTU 

SGL 


0367 

00560 

1 400 40 


CPA 


0 36 8 

0056 1 

-0 01 00000 


JMP* 

SECA 

0 369 

00562 

000005 

OVFL 

SGL 


0 370 

00563 

0 02 00615 


LDA 

= 14 

0371 

00564 

-0 01 00000 


JMP* 

SECA 

0 3 7 2 

00565 

000005 

HUAE 

SGL 


0373 

00566 

0 02 00614 


LDA 

= 8 

0 3 74 

00567 

-0 01 OCOOO 


JMP* 

SECA 

0375 

00570 

000005 

HUBE 

SGL 


0376 

00571 

0 02 00613 


I DA 

= 9 

0 377 

00572 

-0 01 00000 


JMP* 

SECA 

0378 

00573 

0000C5 

HUCE 

SGL 


0 379 

00574 

0 02 00612 


LDA 

= 10 

0380 

00575 

-0 01 00OQ0 


JMP* 

SECA 

0381 

00576 

000005 

HUDE 

SGL 


0 382 

00577 

0 02 00611 


LDA 

= 11 

0383 

00600 

-0 01 00000 


JMP* 

SECA 

0384 

0060 1 

000005 

HTJEE 

SGL 


0385 

00602 

0 02 00610 


LDA 

= 12 

0386 

00603 

-0 01 00000 


JMP* 

SECA 

0 387 

00604 

000005 

HT1FE 

SGL 


0388 

00605 

0 02 00607 


LDA 

= 13 

0 38 q 

00606 

-0 01 00000 


JMP* 

SECA 
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“TC n OCO M ? TELECOMMUNICATED DATA 


DDP-5 1 6 ASSEMBLY LISTING 


0 390 


000762 

FONT 

EOT’ 

• 762 

039 1 


000744 

1A 

EQU 

1 744 

0 3° 2 


000746 

WE 

EQO 

MA + 2 

0 39 3 


000760 

MC 

EQfl 

M A + 4 

0304 


000752 

MD 

FOB 

MA + 6 

0305 


000754 

ME 

EQO 

MD+2 

0 39 6 


000766 

ME 

EQO 

MD + 4 

0397 


0007 60 

MASE 

EQO 

•760 

0399 

00607 

000015 


END 



00610 

QQOQ 1 4 





006 1 1 

000013 





00612 

9000 1 2 





006 1 3 

0000 1 1 





0 0 6 1 4 

0000 1 0 





006 15 

0000 16 





, 00616. 

000007 





0 0617 

990001 
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PROGRAM NAME 
SOURCE: PFIS 
BINARY: BPFIS 

ENTRY POINTS (location): PFIS ('04725) 
ACCESSIBLE VARIABLES (location): KEYP (’05050) 
GENERAL DESCRIPTION: 


This subroutine controls the logic for the PIPA failure detection and 
isolation. It is identical to the subroutine GFIS, which controls the gyro 
failure detection and isolation, except that the PIPA fail status is contained 
in location '320 and '321 instead of '316 and '317 and that the PIPAmaximum 
allowable squared errors (FMSE and SMSE) are not modified at the beginning 
of this subroutine as are the gyro's at the beginning of GFIS. So see 
documentation for the subroutine GFIS. 
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MICPOCOMP TELECOMMIJN ICATED DATA 



ODD- 

516 ASSEMBLY 

LISTING 


000 1 




EEL 


00^2 




SUBR 

PFIS 

0003 




SOBB 

KFYP 

0004 

00000 . 

P OOOQPO 

PFIS 

DAC 

** 

OO 05 

onooi 

0 02 00320 


IDA . 

•320 

0006 

00002 

1 0OP 40 


SZE 


0007 

COOP 3 

0 01 0C016 


JMP 

ALOF 

0006 

00 00 4 

140040 

FFTR 

CRA 


Qoog 

OO 005 

0 04 00122 


STA 

KEYP 

0010 

00006 

0 04 00763 


STA 

•163 

0011 

00 007 

0 02 DO 1 1 7 


LD A 

FFRT 

0012 

000 10 

0 04 00762 


STA 

•762 

0 013 

0001 1 

000007 


DBL 


0014 

O 0012 

0 02 CO 1 24 


DLD 

FMSE 

0015 

opoi 3 

0 04 00760 


DST 

•760 

0016 

OOP 1 4 

000005 


SGL 


0017 

OO 015 

0 01 OO032 


JMP 

COCA 

0018 

00016 

0 02 00122 

ALOF 

L DA 

KEYP 

O 01 9 

00017 

1000 40 


S7,E 


0020 

nor 20 

0 01 00^04 


JMP 

FFTR 

0 021 

0002 1 

P 02 00320 


LD A 

• 320 

0 0 22 

00022 

0 04 00122 


STA 

KEYP 

0023 

oop23 

0 04 00763 


STA 

•76 3 

0024 

00024 

0 02 00120 


L D A 

SFRT 

0025 

0002.5 

0 04 0O762 


STA 

•762 

0026 

Ooo 26 

000007 


DBL 


0027 

00027 

0 02 00126 


DLD 

SMSE 

0 C29 

00030 

0 04 0C760 


DST 

•760 

0 029 

00031 

000005 


SGL 


0030 

00032 

0 10 0O000 

COCA 

CALL 

ERDE 

0031 

00033 

0 02 00122 


LD A 

KEYP 

0032 

00034 

100040 


SZE 


00 33 

00035 

0 01 00103 


JMP 

SFSR 

003 4 

000 36 

0 02 00764 


L DA 

•764 

0035 

00037 

100040 


SZE 


0 03 6 

C0P40 

0 01 00047 


JMP 

NOZE 

0037 

00041 

1 0 0 0 0 4 


SB 3 


0033 

00042 

-0 01 0000c 


JMP* 

PFIS 

0039 

0004 3 

140040 


CBA 


0040 

OO 044 

0 04 00320 


STA 

• 320 

0041 

0O045 

0 04 00321 


STA 

• 321 

0 04 2 

00046 

-0 01 OPPOP 


JMP* 

PFIS 

0043 

0OPI47 

0 07 00 130 

NOTE 

SOB 

= 7 

0044 

00050 

101400 


SMI 


0045 

00061 

-0 01 00000 


JMP* 

PFIS 

004fi 

000 52 

0 02 PC 764 


L DA 

• 764 

0047 

00053 

0 11 00 320 


CAS 

•320 

0043 

00054 

0 01 00056 


JMP 

*♦2 

n 0 40 

00055 

-0 01 oooeo 


JMP* 

PFIS 

0050 

00056 

0 11 00321 


CAS 

• 321 

0051 

"0057 

0 01 00061 


JMP 

*♦2 

0052 

00060 

0 01 00076 


JMP 

SPCA 

0 0 53 

00061 

0 02 0C320 


LD A 

• 320 

0054 

00062 

10 1040 


SNZ 


0055 

00063 

0 01 00071 


JMP 

*♦6 

r 056 

00064 

0 0 2 00321 


LDA 

» 321 

0057 

00065 

101040 


SNZ 
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MtCROCOMP TELECOMMUNICATED DATA 



DDP- 

•516 ASSEMBLY 

LISTING 


0058 

00066 

0 01 00076 


JMP 

SPCA 

0059 

00067 

100004 


SP3 

- 

0 060 

00070 

-0 01 00000 


JMP* 

PFIS 

0061 

00071 

0 02 00764 


LDA 

• 764 

0062 

00072 

0 04 00320 


STA 

•320 

0063 

00073 

140040 


CPA 


0064 

00074 

. 0 04 00321 


STA 

•321 

00 65 

00075 

-0 01 OCOOO 


JMP* 

PFIS 

0066 

00076 

0 02 00320 

SPCA 

LDA 

•320 

0067 

00077 

0 04 00321 


STA 

• 321 

0060 

00100 

0 02 00764 


LDA 

•764 

0069 

00101 

0 04 00320 


STA 

• 320 

0070 

00102 

-0 01 00000 


JMP* 

PFIS 

007 1 

00.103 

0 02 00764 

SFSR 

LDA 

•764 

0072 

00104 

0 07 00130 


SUB 

=7 

0073 

00 105 

101400 


SMI 


0074 

00106 

-0 01 00000 


JHP* 

PFIS 

0075 

00107 

0 02 00321 


LDA 

• 321 

0 076 

00110 

101040 


SNZ 


0077 

00111 

0 01 On 1 14 


JMP 

*+ 3 

0078 

00112 

100004 


SR 3 


0070 

00113 

-0 01 00000 


JMP* 

PFIS 

0080 

00114 

0 02 00764 


LDA 

•764 

0 08 1 

00115 

0 04 00321 


STA 

• 321 

0082 

00116 

-0 01 ooooo 


JMP* 

PFIS 

0083 

00117 

034343 

FFPT 

OCT 

34343 

0084 

00120 

030600 

SFRT 

OCT 

30600 

0085 

00122 

000009 

KEYP 

DBP 

0 


09123 

ooonoo 




0086 

00 124 

oooooo 

FMSE 

OCT 

0, 20000 


80125 

020000 




0 08 ^ 

00126 

oooooo 

SMSE 

OCT 

0, 14632 


00127 

014632 




0 08 8 

00130 

000007 


END 
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PROGRAM NAME 
SOURCE: GPRT 
BINARY: BGPRT 

ENTRY POINT (location): GPRT (’12712) 
GENERAL DESCRIPTION: 


This subroutine, when called, will in turn call PRTY to solve for the 
gyro parity equation if there are already 2 gyro failures. If the appropriate 
parity equation indicates an overflow or exceeds a certain limit it will 
store a 1 in octal location 322. Otherwise, octal location 322 will stay 
zero. The limit the equation must exceed (GMSE) is three pulses (GBSE = 
OCT 0, 30) plus some appropriate fraction of the 


1 A G 

+ 

A 0 

+ 

A e 

1 X 


y 


z 


which is stored in '774 by the gyro error accumulator GARC and allows 
for dynamic errors. This limit is calculated by the first four instructions 
of this subroutine. 


GPRT will then set (’322) to zero and determine if there are 2 gyro 
failures (the gyro first and second fails are stored in octal locations 316 
and 317). If there are not 2 failures, it will return. Otherwise, it calculates 
in the A register the code necessary to tell PRTY which parity equation to 
calculate. The codes are: 

Parity Equation 2 failures code 


CDEF 

A, B 

0 

BDEF 

A, C 

7 

BCEF 

A, D 

14 

BCDF 

A, E 

21 

BCDE 

A, F 

28 

ADEF 

B, C 

35 

ACEF 

B, D 

42 

ACDF 

B, E 

49 

ACDE 

B, F 

56 

ABEF 

C, D 

63 

ABDF 

C, E 

70 

ABDE 

C, F 

77 

ABCF 

D, E 

84 

ABCE 

D, F 

91 

ABCD 

E, F 

98 


115 


The general method for calculating the code is the same as that used by 

/ 

GMIN for the gyro matrix generator. When PRTY returns, GPRT determines 
if the parity equation either exceeds its limit or has overflowed. In either 
case, it will indicate so by changing octal location322 to a 1 before returning. 


116 


MTCPOCOMP" TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


non 




SUBR 

GPP T 

0002 




REL 


OOO 3 

oopro 

0 000000 

GPRT 

DAC 

** 

00 on 

0000 1 

0 02 00774 


IDA 

•774 

0005 

00 00 2 

0405 75 


APS 

3 

oro 6 

00003 

0 06 00053 


ADD 

GBSE+1 

0007 

00004 

0 04 00051 


ST A 

GMSE+1 

OOOg 

00005 

140040 


CRA 


roog 

OOOO 6 

0 04 00322 


STA 

•322 

001c 

O0O07 

0 02 00317 


LD A 

•317 

0011 

O0" 10 

101040 


SNZ 


0012 

00011 

-0 01 00000 


JMP* 

GPRT 

o?n 

000 1 2 

0 11 00 316 


CAS 

• 316 

00 m 

00013 

0 01 00024 


JMP 

. SFL A 

0*16 

00014 

101000 


NOP 


OOlfi 

a a n 1 9 

0 06 00045 


ADD 

ADST 

0017 

00016 

0 04 00046 


STA 

IDPT 

0030 

0 00 1 7 

0 02 00316 


IDA 

• 3 1 6 

OO 1 q 

000 20 

0415 76 


ALS 

3 

0020 

.00021 

0 07 00316 


SUB 

•316 

0021 

000 22 

-0 06 00046 


ADD* 

IDPT 

0022 

000 23 

0 01 00033 


JMP 

PPCL 

0023 

00024 

0 02 00316 

SF1 A 

IDA 

• 316 

00 24 

00025 

0 06 00045 


ADD 

ADST 

0025. 

00026 

0 04 00046 


STA 

IDPT 

0026 

00 0 27 

0 02 00317 


LD A 

•317 

0027 

00030 

0415 75 


ALS 

3 

0020 

0003 1 

0 07 00317 


SUB 

•317 

0020 

00032 

-0 06 00046 


ADD* 

IDPT 

0 03 a 

00 0.33 

0 10 O0000 

PRCL 

CALL 

PRTY 

003 1 

00034 

101000 


NOP 


0032 

00035 

100400 


SPL 


00 3 3 

00036 

0 01 00042 


JMP 

OVPF 

0034 

00 0 37 

006007 


DBL 


0035 

00040 

0 07 00050 


DSB 

GMSE 

0036 

00041 

101400 


SMI 


0037 

0004 2 

0 12 00 322 

OVFF 

IPS 

' 322 

0038 

00043 

000005 


SGL 


00.3 9 

00044 

-0 01 00000 


JMP* 

GPRT 

0040 

00045 

9 000054 

ADST 

DAC 

CRPS 

0041 

00046 

ooonno 

I DPT 

DBP 

0 


00047 

0,00000 




0042 

00050 

000000 

GMSE 

OCT 

0, 30 


00051 

0000 30 




0043 

00052 

000000 

GBSE 

OCT 

0,30 


0005 3 

0000 30 




0044 

00054 

000000 

CRPS 

OCT 

0, 177762, 16,43,61,70 


00055 

177762 





00056 

000016 





00 0-57 

000043 





00060 

000061 





00061 

000070 




0045 




END 
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PROGRAM NAME: 

SOURCE: PRTY 
BINARY: BPRTY 

ENTRY POINTS (location): PRTY ('12774) 

GENERAL DESCRIPTION: 

This subroutine calculates the parity equation used to detect third 
failures from the arguments stored in locations '744 - '757 by the gyro or 
PIP A error accumulators. It is called by GPRT if and when the gyro fail 
status indicates 2 failures and by PPRT (program source name PPEX) if 
and when the PIPA fail status indicates 2 failures. When called the A 
register contains a code to tell which of the fifteen parity equations to 
calculate (see documentation for GPRT). For example, if instruments C 
and F were failed, the code would be 77 (octal 115) and the JMP* PONT, 
the fifth instruction in PRTY would effect a jump to the block of code: 
(note, at this point the (A, B) register contains a double precision zero). 


DSB 

MB 

DSB 

ME 

DST 

SINT 

DLD 

MA 

DAD 

MD 

DST 

COST 

JMP 

CALC 


SINT is the sine term of the parity equation = - MB - ME. COST is 

the cosine term of the parity equation = MA + MD. Each of the 15 parity 

equations has a block of code (7 instructions each) similar to the block 

above. The jump to CALC will start a sequence of instructions which will 

multiply SINT by SINE = sine a and COST by COSN = cosine o and then add 

the two results and take the absolute value. If the high order word of this 

double precision result is zero (which indicates that the absolute value of 

15 12 

the parity equation is less than 2 or 2 instrument pulses), this subroutine 
will return with the parity equation result in the (A, B) register. If the 
high order word is not zero, (A, B) will contain a double precision -1 at 
the return. 
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MTCEOCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 


000 1 
0002 
opni 

00000 

0 

070000 

PRTY 

SUBR 

REL 

DAC 

PFTY 

** 

nnou 

0O00 1 

0 

06 

00252 


ADD 

ADAB 

0005 

00002 

0 

09 

00253 


STA 

PONT 

0006 

0O00 3 

000907 


DBL 


0007 

000 09 

0 

02 

00 232 


DLD 

DZFO 

or OB 

00005 

-0 

01 

00253 


JMP* 

PONT 

0009 

00006 

0 

02 

00752 

ABFA 

DLD 

MD 

0010 

00007 

0 

07 

CO 750 


DSB 

MC 

0011 

00^10 

r 

0 9 

0 C 2 3 6 


DST 

COST 

0012 

00011 

0 

02 

00756 


DLD 

MF 

no 1 0 

CO" 12 

0 

07 

07754 


DSB 

ME 

oom 

000 1 7 

c 

09 

00234 


DST 

SINT 

ooi 5 

00019 

0 

01 

00 156 


JMP 

CALC 

0016 

1 5 

0 

02 

00 752 


DLD 

MD 

0017 

00016 

0 

06 

00754 


DAD 

ME 

O010 

00017 

9 

04 

00234 


DST 

SINT 

0019 

0002C 

7 

02 

00756 


DLD 

MF 

n o 90 

00021 

0 

07 

00746 


DSB 

MB 

00 21 

00022 

0 

04 

00 2 36 


DST 

COST 

o r '22 

0002.1 

0 

01 

90156 


JMP 

CALC 

2 3 

nno 24 

0 

02 

00750 


DLD 

MC 

n *. 24 

00025 

0 

06 

00756 


DAD 

ME 

0*25 

00026 

0 

04 

90234 


DST 

SINT 

0026 

00027 

r\ 

02 

00754 


DLD 

ME 

0 027 

"0030 

0 

07 

00746 


DSB 

MB 

0*29 

00 n.3i 

0 

04 

00236 


DST 

COST 

0020 

00032 

0 

01 

00156 


JMP 

CALC 

0070 

O003 3 

0 

07 

00746 


DSB 

MB 

C o ? 1 

00 " 3 9 

n 

07 

0 0750 


DSB 

MC 

0 0 2 2 

00035 

0 

04 

00234 


DST 

ST NT 

O037 

00036 

0 

02 

00752 


DLD 

MD 

0939 

00037 

0 

06 

00756 


DAD 

MF 

0 035 

09040 

A 

v,- 

04 

00236 


DST 

COST 

0036 

n 0 04 1 

0 

01 

00 156 


JMP 

CALC 

or\ 37 

00092 

0 

07 

00746 


DSB 

MB 

0733 

9 0 0 4 3 

0 

07 

00752 


DSB 

MD 

0 03 9 

00099 

Q 

04 

00234 


DST 

SINT 

Ooq.o 

00095 

0 

02 

00750 


DLD 

MC 

oom 

00 09 6 

0 

06 

00 7 54 


DAD 

ME 

0092 

00097 

0 

04 

0 0 2 3 6 


DST 

COST 

009 3 

00959 

0 

01 

00 156 


JMP 

CALC 

0 0 99 

09751 

0 

02 

00759 


DLD 

ME 

0045 

0 8 0 5 2 

0 

07 

7 0 7 9 9 


DSB 

MA 

0 09 6 

0005 3 

0 

04 

0 0 2 3 6 


DST 

COST 

0097 

00 059 

0 

02 

00756 


DLD 

MF 

00 48 

00055 

0 

07 

00752 


DSB 

MD 

0099 

0P056 

n 

09 

00239 


DST 

SINT 

9050 

00 057 

0 

01 

001 56 


JMP 

CALC 

0051 

00060 

0 

02 

00794 


DLD 

MA 

00S2 

00061 

0 

07 

0C756 


DSB 

MF 

0 0 53 

00062 

0 

09 

00236 


DST 

COST 

0059 

00063 

0 

02 

00750 


DLD 

MC 

0OS5 

09769 

0 

07 

00754 


DSB 

ME 

0056 

00065 

0 

09 

90234 


DST 

SINT 

0057 

00066 

0 

01 

00156 


JMP 

CALC 
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MTCHOCOMP TELECOMMUNICATED DATA 



DDP— 

516 

ASSEMBLY 

LISTING 


0058 

00067 

0 

02 

00744 

DLD 

HA 

0059 

00070 

o 

07 

00752 

DSB 

MD 

0060 

00071 

0 

04 

00234 

DST 

SINT 

0061 

00072 

0 

02 

00750 

DLD 

MC 

0062 

00073 

0 

07 

00756 

DSB 

ME 

0063 

00074 

0 

04 

00236 

DST 

COST 

0064 

00075 

c 

01 

00156 

JMP 

CALC 

0065 

00076 

0 

02 

00744 

DLD 

MA 

0066 

00077 

0 

01 

00750 

DSB 

MC 

0067 

00100 

0 

04 

00234 

DST 

SINT 

0068 

CC101 

0 

02 

00752 

DLD 

MD 

0069 

00102 

0 

07 

00754 

DSB 

ME 

0070 

00 103 

0 

04 

00236 

DST 

COST 

0071 

00104 

0 

01 

00156 

JMP 

CALC 

0072 

00105 

0 

07 

00744 

DSB 

MA 

0973 

00106 

0 

07 

00746 

DSB 

MB 

0 074 

00 107 

0 

04 

00234 

DST 

SINT 

<"'075 

00110 

0 

02 

00754 

DLD 

ME 

0076 

00111 

0 

06 

00756 

DAD 

HE 

0077 

00112 

0 

04 

00236 

DST 

COST 

0078 

00113 

0 

01 

00156 

JMP 

CALC 

0079 

00114 

0 

02 

00744 

DLD 

MA 

0080 

00115 

0 

06 

00756 

DAD 

HF 

0"81 

00116 

0 

04 

00234 

DST 

SINT 

0082 

00 117 

0 

02 

00752 

DLD 

HD 

0083 

00120 

0 

07 

00746 

DSB 

MB 

0084 

00121 

0 

04 

00236 

DST 

COST 

0085 

00122 

0 

01 

00156 

JMP 

CALC 

0086 

00123 

0 

07 

00746 

DSB 

MB 

0087 

09124 

0 

07 

00754 

DSB 

ME 

0088 

00125 

0 

04 

00234 

DST 

SINT 

0089 

00126 

0 

02 

00744 

DLD 

MA 

0090 

00 127 

0 

06 

00752 

DAD 

MD 

0091 

00130 

o 

04 

00 236 

DST 

COST 

0092 

00131 

0 

01 

00156 

JMP 

CALC 

0093 

90132 

0 

07 

00746 

DSB 

MB 

0094 

0 0 13.3 

0 

07 

00756 

DSB 

ME 

0 095 

00134 

0 

04 

00234 

DST 

SINT 

0096 

00 135 

0 

02 

00744 

DLD 

M A 

0097 

00136 

0 

06 

00750 

DAD 

MC 

0098 

00137 

0 

04 

00236 

DST 

COST 

0099 

00140 

0 

01 

00156 

JMP 

CALC 

0100 

00141 

0 

02 

00744 

DLD 

MA 

o 1 0 1 

00142 

0 

06 

00754 

DAD 

ME 

0102 

00 143 

o 

04 

00234 

DST 

. SINT 

0103 

00144 

0 

02 

00750 

DLD 

MC 

01"U 

00 145 

0 

07 

00746 

DSB 

MB 

0105 

00146 

0 

04 

00236 

DST 

COST 

0106 

00 147 

0 

01 

00156 

JMP 

CALC 

0107 

00150 

0 

02 

00744 

DLD 

MA 

0108 

00151 

0 

07 

00746 

DSB 

MB 

0109 

00152 

0 

04 

00236 

DST 

COST 

0119 

00 153 

0 

02 

00750 

DLD 

MC 

9111 

00154 

0 

06 

00752 

DAD 

MD 

0112 

00155 

0 

04 

00234 

DST 

SINT 

0113 

00156 

0 

02 

00234 

CALC DLD 

SINT 

0114 

00157 

0 

16 

00245 

MPY 

SINE+1 
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MTCPOCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 


PI IS 

CP 160 

0 401 

77 


LRS 

1 

0116 

00161 

0 04 

00240 


DST 

TEM1 

0117 

00162 

0 02 

00244 


DLD 

SINE 

0118 

00163 

0 16 

OC 235 


MPY 

SI NT* 1 

0119 

0 n 164 

040 1 

77 


LBS 

1 

01 20 

00165 

0 06 

00240 


DAD 

TEM1 

0121 

00166 

0 06 

00250 


DAD 

HALF 

0122 

00167 

0401 

62 


LRS 

14 

012? 

OO 170 

0 04 

00240 


DST 

TEM 1 

012 4 

0 p 1 7 1 

0 0 2 

00234 


DLD 

SINT 

012S 

PO 172 

0 16 

90244 


MPY 

SINE 

0126 

0017 3 

0 06 

00 240 


DAD 

TF Ml 

0 127 

PO 174 

0 0 4 

00 2 34 


DST 

SINT 

0128 

00175 

0 9 2 

00236 


DLD 

COST 

0129 

00 176 

0 16 

00 247 


MPY 

COSN+1 

0 130 

00177 

0401 

77 


LBS 

1 

0131 

00200 

0 04 

00240 


DST 

TEH 1 

0132 

00201 

0 02 

00246 


DLD 

COS N 

0 133 

00202 

P 16 

00 237 


MPY 

C0ST+-1 

0 134 

00 20 3 

0401 

77 


LRS 

1 

0 1 3 S 

00204 

0 06 

00240 


DAD 

TEM 1 

0136 

00205 

0 06 

00250 


DAD 

HALF 

0137 

00206 

0401 

62 


LBS 

14 

0138 

PO 207 

0 04 

00240 


DST 

TE Ml 

0 139 

00210 

0 02 

002 36 


DLD 

COST 

0140 

0021 1 

0 16 

90246 


MPY 

COSN 

0141 

00212 

0 06 

00 240 


DAD 

TEM 1 

0 142 

00213 

0 06 

00234 


DAD 

SINT 

0 143 

00214 

0 04 

00236 


DST 

COST 

0144 

00215 

101400 


SMI 


0 14 5 

00216 

0 01 

00 222 


JMP 

*♦4 

0 146 

00217 

0 07 

002 36 


DSB 

COST 

0 147 

00 220 

0 07 

00236 


DSB 

COST 

0148 

00221 

0 04 

00236 


DST 

COST 

0149 

00222 

100040 


SZE 


0 iso 

P 0 2 2 3 

0 01 

00226 


<J M? 

HUER 

0 151 

00224 

o 0 0 0 o 

5 


SGL 


0152 

00225 

- p pi 

90000 


JMP* 

PRTY 

0153 

00226 

0 02 

90 242 

HUER 

DLD 

NEG 1 

0154 

00227 

000005 


SGL 


0 155 

00 2 30 

-o 01 

000 00 


JMP* 

PRTY 

01 56 


900744 

MA 

EQU 

•744 

0157 


000746 

MB 

EQU 

M A + 2 

0158 


000750 

MC 

EQU 

MA + 4 

0159 


000752 

MD 

EQU 

MA+6 

0160 


000754 

ME 

EQU 

MA+8 

016 1 


000756 

MF 

EQU 

MA + 10 

0 152 

PO 2 32 

000000 

DZRO 

DBP 

0 


00233 

000000 




0 163 

OP 234 

000000 

SINT 

DBP 

0 


00235 

000000 




0 164 

0 0 2 3 6 

90000 


COST 

DBP 

0 


00237 

000000 




0165 

0024O 

000900 

TEM1 

DBP 

0 


00241 

900000 




0 158 

00242 

1 77777 

NEG 1 

OCT 

177777,77777 


0 9 24? 

P 777 77 
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HICFOCOMP TELECOM HU NIC AT ED DATA 


DDP-516 ASSEMBLY LISTING 


0 167 

00244 

00245 

041513 

012033 

SINE 

OCT 

0168 

00246 

00247 

066342 

010027 

COSN 

OCT 

0169 

00250 

00251 

000000 

020000 

HALF 

OCT 

0170 

00252 

0 000006 

AEAB 

DAC 

0171 

0172 

00253 

000000 

PONT 

OCT 

END 


41513, 12033 

66342,10027 

0, 20000 

ABPA 

0 
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PROGRAM NAME 
SOURCE: PPEX 
BINARY: BPPEX 

ENTRY POINT (location): PPRT ('12360) 

GENERAL DESCRIPTION: 

This subroutine determines PIPA third failures in a similar way to 
the way GPRT determines gyro third failures. However, it does not allow 
for dynamic errors as does GPRT and will not do its parity equation 
calculation if octal location 765 is set to 1. This would indicate that on 
this update the PIPA error accumulator (program source name PREX, 
subroutine entry point PARC) is purging its accumulation. The timing 
considerations are so stringent that at timesy ' doing both jobs would be 
impossible. Other than the above considerations, look to GPRT for 
documentation of the methods used. 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


000 1 




SUBB 

PPPT 

0002 




PEL 


0 003 

00000 

0 090000 

PPPT 

DAC 

** 

0^>00 

9000 1 

0 02 00765 


LD A 

•765 

0005 

0000 2 

101040 


SNZ 


0006 

00003 

0 01 00007 


JMP 

GOAH 

0007 

00004 

140040 


CRA 


00 08 

00005 

0 04 00765 


STA 

•765 

0009 

00006 

-0 01 00000 


JMP* 

PPPT 

0010 

00007 

140040 

GOAH 

CPA 


0011 

000 10 

0 04 00323 


STA 

•323 

0012 

0001 1 

0 02 00321 


LDA 

•321 

0013 

00012 

10 1040 


SNZ 


0014 

09 n 1 3 

-0 Cl 00000 


JMP* 

PPRT 

0015 

00014 

0 11 00320 


CAS 

• 320' 

0016 

00015 

0 01 00026 


JMP 

SELA 

0 0T7' 

■000-16 

101000 


NOP 


0018 

00017 

006 00047 


ADD 

ADST 

0019 

00020 

0 04 00050 


STA 

IDPT 

0020 

00021 

0 02 00320 


LDA 

•320 

0021 

000 22 

0415 75 


ALS 

3 

0022 

00023 

0 07 00320 


SUB 

•3 20 

0023 

00024 

-0 06 00050 


ADD* 

IDPT 

on 24 

090 25 

0 01 00035 


JMP 

PRCL 

0025 

00026 

0 02 00320 

SFL A 

LDA 

‘•320 

0026 

00027 

0 06 00047 


ADD 

ADST 

0027 

09030 

0 04 00050 


STA 

IDPT 

0*28 

0003 1 

0 02 00321 


LDA 

•321 

0029 

00932 

0415 75 


ALS 

3 

0030 

09033 

0 07 00321 


SUB 

•321 

0031 

00034 

-0 06 00050 


ADD* 

IDPT 

0032 

09935 

0 10 OCOOO 

PRCL 

CALL 

PRTY 

0033 

00036 

101000 


NOP 


0034 

00037 

100400 


SPL 


0035 

00040 

0 01 00044 


JMP 

OVRF 

0036 

00041 

000007 


DBL 


0037 

00042 

0 07 00052 


DSB 

PM SE 

0 038 

00043 

101400 


SMI 


0 03 9 

00044 

0 12 00323 

OVRF 

IPS 

•323 

0040 

00045 

000005 


SGL 


0041 

00046 

-0 01 OCOOO 


JMP* 

PPRT 

0042 

00047 

0 000054 

ADST 

DAC 

CR PS 

0043 

00050 

000000 

IDPT 

DBP 

0 


00951 

000000 




0044 

00052 

000000 

PMSE 

OCT 

0,40 


0005 3 

000040 




0045 

00054 

000O00 

CRPS 

OCT 

0, 177762,16,43,61,70 


00055 

177762 





00056 

0000 16 





00057 

000043 





00060 

000061 





00061 

000070 




0046 




END 
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PROGRAM NAME 
SOURCE: GMIN 
BINARY: BGMIN 

ENTRY POINTS (location): GMIN 003100) 

GENERAL DESCRIPTION: 

This subroutine, when called, will calculate, using the gyro fail status 
from locations '316 and '317, the code which tells the gyro least squares 
matrix generator (see documentation for program source name GPMA, 
subroutine entry point GMAT) which of the 22 matrices to generate. Prior 
to the call to GMAT, this code is put in the A register. The codes are: 


fail status code 


no fail 

0 

A fail 

9 

B fail 

18 

C fail 

27 

D fail 

36 

E fail 

45 

F fail 

54 

AB fail 

63 

AC fail 

72 

AD fail 

81 

AE fail 

90 

AF fail 

99 

BC fail 

108 

BD fail 

117 

BE fail 

126 

BF fail 

135 

CD fail 

144 

CE fail 

153 

CF fail 

162 

DE fail 

171 

DF fail 

180 

EF fail 

189 


If there is no second fail, i.e., 0317) = 0, then the code is simply 9 x 
0316), or the number of the first fail (0 - 6) times 9. If there is a second 
fail, first a decision is made as to which of the two fails is larger, i.e., F 
fail (6) is larger than B fail (2). The code is then generated by taking 9 x 
the larger fail plus 45 if the smaller fail is A (1), 81 ii the smaller fail is 
B (2), 108 if the smaller fail is C (3), 126 if the smaller fail is D (4), or 
135 if the smaller fail is E (5). 45, 81, 108, 126 and 135 have the octal 

equivalents 55, 121, 154, 176 and 207 respectively. The program flow chart 
follows. 
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MICROCHIP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0001 




REL 


0002 




SDRR 

GM IN 

000 3 

00000 

0 oooooo 

G MI N 

DAC 

** 

0004 

00001 

0 02 00317 


LDA 

• 317 

0005 

00002 

101040 


snt; 


0OQ6 

0000 3 

0 01 00026 


JMP 

OOFA 

0007 

00009 

0 11 00316 


CAS 

• 316 

POOR 

00005 

0 01 00016 


JMP 

SFL A 

0009 

00006 

0 01 00026 


JMP 

OOFA 

0010 

00007 

0 06 00033 


ADD 

ADST 

0011 

POO 1 0 

0 04 00034 


ST A 

IDPT 

0012 

OPO 1 1 

0 02 00316 


LDA 

•316 

0013 

PO012 

0415 75 


ALS 

3 

0"14 

0 n 0 1 .3 

0 06 00316 


ADD 

• 316 

0015 

00014 

-0 06 00034 


ADD* 

IDPT 

0016 

00015 

0 01 00031 


JMP 

PMCL 

0017 

00016 

0 02 00316 

SFL A 

LDA 

• 3 16 

0 018 

00017 

0 06 00033 


ADD 

ADST 

0019 

00020 

0 04 O n O 34 


ST A 

IDPT 

0020 

00021 

0 02 00317 


LDA 

• 317 

0021 

00022 

0415 75 


ATS 

3 

0022 

00 023 

0 06 00317 


ADD 

•317 

0023 

00024 

-0 06 00034 


ADD* 

IDPT 

0029 

0O025 

0 01 00031 


JMP 

PMCL 

0025 

00026 

0 02 00316 

00 FA 

LDA 

• 3'16 

0025 

00027 

0415 75 


ALS 

3 

0027 

00030 

0 06 00316 


ADD 

•3 16 

0028 

0003 1 

0 10 00000 

PMCL 

CALL 

GMAT 

002° 

00032 

-0 01 OOOOO 


JMP* 

GMT N 

0030 

00033 

0 000035 

A CST 

DAC 

SUTA 

0031 

POO 34 

oooooo 

IDPT 

BS7 

1 

0032 

OOO 35 

oooooo 

SUTA 

OCT 

0,55,121, 154,176,207 


0O036 

00O055 





00037 

000 1 2 1 





OOO 40 

000154 





0004 1 

000176 





00042 

000207 




00 33 




END 
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PROGRAM NAME 
SOURCE: GPMA 
BINARY: BGPMA 

ENTRY POINTS (location): MATR (’12102), GMAT (’12136) 

GENERAL DESCRIPTION: 

This program contains the two subroutines GMAT and MATR which 
generate the appropriate gyro or PIPA 6x3 least square matrix when 
called (with the proper code in the A register) by GMIN or EMIN (see 
documentation for GMIN and EMIN). These subroutines make use of two 
tables. The first, the double precision data table (DPDT), contains all the 
double precision fractions used in any of the 22 (1 no fail, 6 single fail and 
15 double fail) least square matrices. For example, the first fraction in 
the table is a double precision 0(DBP 0), the second is 

-- ln | Q = 0. 26865556403 

(OCT 20645, 45016), the third is 

sine a ,, r ,, . cos o 
2 * the fourth is — g — 

The second table (TABL) contains 22 sets of pointers, each set of 
which indicates which constants from the first table belong to a particular 
matrix. Each set is made of 9 16 bit words, or 18 bytes. Since there are 
18 elements to each 6x3 matrix, each byte points to one element. For 
example, the first nine words (octal 1000, 3004,6, 4004, 10, 1000, 6, 1000, 
4002) point to the constants for the no fail matrix. The next nine point to 
the constants for the A fail matrix. The code that GMIN or EMIN generates 
before calling GMAT or MATR tells where in the TABL to get the first of 
the nine words that point to the matrix corresponding to the gyro or PIPA 
fail status. Consider again the first nine words in TABL pointing to the 
no fail matrix constants. The first of the nine words is octal 1000 or 
binary 00000010 00000000, which when broken into bytes becomes octal 2, 
0. All nine broken in to bytes become 2, 0, 6, 4, 0, 6, 10, 4, 0, 10, 2, 0, 0, 
6, 2, 0, 10, 2. Calling sine o S and cos a C, these 18 bytes point respectively 
to 



128 


to|cn 


which are the 18 elements of the no fail matrix. The flow chart for GMAT 
(MATR is analogous) follows: 
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AUTOFLOW CHART SET - DRAPER OEHPLE ' S FLOWCHART - GHIt 


BO*D * ADf? ♦ (A) 
OP ADD THE CODF 
TN THE A REGISTER 
TO THE ADDRESS OF 
TABL TO GET THE 
ADDRESS OF THE 
FJOST OP THE NINE 
WORDS OP 
POINTERS. STO»E 
THIS ADDRESS I N 
PCD 


Note: I = Index Register 


| BOHD = BOND ♦ 1 
\ OP PUT THE 
| ADDRESS OF THE 
t HEFT 2 BYTES OF 
| POINTERS IN BOHD 


| LOAD (A) WITH THE | 
l VOPC WHOSF. J 

\ ADDRESS IS I H ) 
| BOHD, 1 WORD OP 2 \ 
| BYTES CF POINTFPS I 


| ICL OP GET FI PST | 
1 OF 2 PYTES IN THE \ 
\ A REGl STEP | 


OP TFNP GETS 
APDPESS OF DOUBLE 
PRFCTSTON DATA 
TABLE (DPDT) ♦ 
POINTER, I.R. 
ADDPESS OP 
POINTFP m 
CONSTANT 


T OAD (A, 3) WITH 1 

THE DOUBLE | 

PF-ECIST ON | 

CONSTANT WHOSE | 

ADDRESS T S IN | 

TERR J 


STO»F ( A , B) TN 
LOCATION •U'> r ♦ T 
NOTE: THE GYRO 
NATRIX IS STOOFD 
IN THE IP DOUBLE 
P n EC I ST ON WO«>ns 
Fa OR OCTAL 
LOCATION 334 TO 
377. THE FIRST 
TIME THROUGH T 
CONTAINS -36 OR 
-•04 SO * 4C 0 ♦ T 
= • 3 30 


| LOAD (A) WITH T!IE | 
J WORD WHOSE 1 
| ADDRESS IS IN | 
\ BOHD, 1 WORD OP 2 \ 
| BYTES OF POINTERS [ 


| CAT. OR GF.T SECOND | 
| OF 2 PYTES I N THE \ 
| A P EGISTF.P | 


>n 

X 33 | 

LOAD ( A, B) WITH 
TPS DOUBLE 
PRECISION 
CONSTANT WHOSE 
ADDRESS IS IN 
TEN P 


STOPS ( A , R) IN 
LOCATION •HOP ♦ I 
NOTF : THE FIRST 
TIN.F THROUGH -I 
CONTAINS -34 OP 
-•42 SO *400- ♦ I 
= ' 3 36, THE 
SECOND MATRIX 
ELEMENT ADDRESS 


X3t> | NOTE 36 
• •***•***• 
15 I - 0 OR HAVE ♦ 
AIL 3R MATRIX * 
ELFHENTS FEEN * 
STORED? *. 


NO * 

• SEE NOTE 

* ABOVE 


FLOWCHART - GMAT 
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MTCROCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 


000 1 




SUBR 

MATS 


000 2 




SUBR 

GMAT 


0003 




HEL 



ooou 

OOOOO 

0 0**000 

MATH 

DAC 

** 


0005 

0000 1 

0 06 00070 


ADD 

ADTB 


0*06 

0000 2 

0 04 00071 


STA 

BOM D 


0007 

00003 

* 35 0*524 


LDX 

= • 177734 

0008 

00004 

0 01 00006 


JMP 

BEGN 


on 09 

00005 

0 12 0C071 

FULL 

I RS 

BO MD 


0010 

00006 

-0 *2 00071 

BEGN 

L D A* 

BOM D 


001 1 

00007 

141140 


TCI. 



0012 

OOO 10 

0 06 00073 


ADD 

ADPT 


0013 

00011 

0 04 00072 


STA 

TEMP 


oon 

*00 12 

000007 


DBL 



0015 

0O01 3 

-* *2 0*072 


DID* 

TEMP 


0016 

OO 014 

1 04 0C666 


D ST 

• 666, 

1 

0017 

00015 

000*05 


SGI, 



0010 

00016 

0 12 0*000 


IRS 

0 


0 01 9 

00017 

0 12 *0*00 


IRS 

0 


0020 

00020 

-0 *2 00071 


IDA* 

BOMD 


0021 

00021 

141050 


CAL 



0022 

00022 

0 06 0*073 


ADD 

ADPT 


0023 

00023 

0 04 00072 


STA 

TEMP 


0024 

00024 

000007 


DBL 



0025 

00025 

-0 02 00072 


DLD* 

TEMP 


0026 

00° 26 

1 04 0*666 


DST 

•666, 

1 

0027 

00027 

0000*5 


SGL 



0 020 

00030 

0 12 00*00 


IRS 

0 


0029 

0003 1 

0 12 0**00 


TPS 

0 


0030 

0*032 

* 01 00005 


JMP 

FULL 


0031 

0OO33 

-0 01 *0000 


JMP* 

MATH 


0032 

00034 

0 00*000 

GMAT 

DAC 

** 


003 3 

0 0 0 3 5 

0 06 0*07* 


ADD 

ADTB 


003 U 

OOO 36 

0 04 00071 


STA 

BOMD 


0 03 5 

09037 

* 35 00524 


LDY 

=' 177734 

0036 

00040 

0 01 00042 


JMP 

GEGN 


0037 

*0041 

0 12 00071 

GDI.L 

T RS 

BOMD 


0 039 

00042 

-0 02 00071 

GEGN 

L D A* 

BOMD 


0 03 9 

0004 3 

141140 


I CL 



OoijO 

0*044 

0 06 00*73 


ADD 

ADPT 


C041 

0*045 

0 04 0*072 


STA 

TEMP 


0042 

*0046 

000007 


DBL 



0 04 3 

*0047 

-0 02 00072 


DLD* 

TEMP 


0 044 

00050 

1 04 00400 


DST 

' 4*0, 

1 

0045 

00051 

0000*5 


SGL 



0046 

00052 

0 12 OOOOO 


IPS 

0 


0047 

00*53 

0. 12 OOOOO 


IRS 

0 


0049 

00054 

-* 02 0C071 


LDA* 

BOMD 


0 049 

*0055 

141050 


CAL 



0050 

00*56 

0 06 00073 


ADD 

ADPT 


0051 

*0*57 

* 04 00072 


STA 

TEMP 


0052 

00060 

00*0*7 


DBL 



0053 

00*6 1 

-0 02 00072 


DLD* 

TEMP 


0054 

00062 

1 04 *0400 


DST 

• 400, 

1 

r 0 55 

00063 

000*05 


SGI 



0056 

00064 

* 12 OOOOO 


IPS 

0 


0057 

0*065 

* 12 OOOOO 


IRS 

0 
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MICPOCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 
0 058 00066 0 01 00041 JMP GDLL 

0050 00067 -0 01 00004 JMP* GHAT 


0060 

00070 

0 000216 

ADTB DAC 

TABL 


0061 

00071 

000O00 

BOND BSE 

1 


.0062 

00072 

oooooo 

TEMP BSZ 

1 


0063 

00073 

0 0O0074 

ADPT DAC 

DPDT 


0064 

00074 

00075 

oooooo 

oooooo 

DPDT DBP 

0 


0065 

00076 

00077 

020645 

045016 

OCT 

20645, 

45C16 

0066 

00 ion 
oomi 

157132 

032762 

OCT 

157132 

,32762 

0067 

no m 2 
00103 

033161 
0040 1 3 

OCT 

33161, 

04013 

00*8 

00 104 
00105 

144616 

073765 

OCT 

144616 

,73765 

0069 

00 106 
P01C7 

0 11231 
0 360 14 

OCT 

11231, 

36014 

0070 

00110 
001 1 1 

166546 

041764 

OCT 

166546 

,41764 

007 1 

00 112 
00113 

047311 

072023 

OCT 

47311, 

7 2023 

0072 

00 1 14 
00115 

130466 

005755 

OCT 

130466 

,5755 

0073 

00 116 
00117 

034776 

033025 

OCT 

34776, 

33025 

0074 

00120 

00121 

143001 

044753 

OCT 

143001 

,44753 

0075 

00122 

00123 

042575 

013015 

OCT 

42575, 

13015 

007* 

00124 

00125 

135202 

064763 

OCT 

135202 

,64763 

0077 

00 126 
00127 

007414 

007002 

OCT 

7414,7002 

0078 

00130 

00131 

170363 

070776 

OCT 

170363 

,70776 

0079 

00 132 
00133 

014130 

066010 

OCT 

14130, 

66010 

O 080 

00134 

00135 

163647 

011770 

OCT 

163647 

,11770 

008 1 

00136 

00137 

045474 

043011 

OCT 

45474, 

4301 1 

0OR2 

00140 

00141 

1 32303 
034767 

OCT 

132303 

,34767 

0083 

00 142 
0014 3 

074674 

016047 

OCT 

74674, 

16047 

0084 

00144 

00145 

103103 

061731 

OCT 

103103 

,61731 

0085 

00146 

00147 

003155 
0030 10 

OCT 

03155, 

03010 

0086 

0015P 

00151 

174622 

074770 

OCT 

174622 

,74770 

0087 

00152 

00153 

043503 

066422 

OCT 

43503, 

66422 

0088 

00154 

00155 

1 34274 
011356 

OCT 

134274 

,11356 

0089 

00156 

040326 

OCT 

40326, 

63412 
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MTCPOCOMP TELECOM MO NICATEJ3 DATS 
DDP-516 ASSEMBLY LISTING 



00157 

063412 




pn q r 

00160 

00161 

137451 

014366 

OCT 

137451,14366 


ooq i 

00162 

00163 

050651 

046021 

OCT 

50651,46021 


0092 

o 0 1 6 4 
00 165 

127126 

031757 

OCT 

127126 ,31757 


OOPS 

00166 

00167 

031170 

027424 

OCT 

31 170,27424 


r 994 

00170 

00171 

146607 

050354 

OCT 

146607,50354 


0095 

00 172 
09 17 3 

046660 

071432 

OCT 

46660,71432 


''096 

00174 

00175 

131117 

006346 

OCT 

131117,6346 


0 097 

00176 
00 177 

076664 

072435 

OCT 

76664,72435 


C^PS 

00200 
00 20 1 

101113 

005343 

OCT 

10 1 1 13 ,5343 


OPPP 

00202 
0 0 20 3 

024022 
0 500 26 

OCT 

24"22 , 50026 


r 100 

oo 20 4 
00205 

1 53755 
027752 

OCT 

153755 ,27752 


o 10 1 

0 0 206 
00 20 7 

005145 

057377 

OCT 

05145,57377 


0102 

00210 

00211 

172632 

020401 

OCT 

172632,20401 


0109 

00212 

00213 

026013 

024414 

OCT 

26013,24414 


0104 

00214 

00215 

151764 

053364 

OCT 

1 51764 ,53364 


0 105 

00216 
OQ 2 1 7 
00220 

001000 

003004 

000006 

TARL OCT 

1000,3004,6 


0106 

"0221 

00222 

00223 

004004 

"00010 

001000 

OCT 

4C04,1C,1"00 


0107 

00224 

00225 

00226 

000006 

001000 

004002 

OCT 

6, 1000 ,4002 


0 108 

00 227 

00230 

00231 

000000 
0000 1 4 
0000 16 

OCT 

0, 14,16 


0109 

"0232 
0 0 233 
00234 

014004 
0 200 30 
001040 

OCT 

14004,20030, 

1040 

01 10 

00235 

00236 

00237 

015006 

011032 

004022 

OCT 

15006, 11C32, 

4022 

0111 

00240 

00241 

00242 

005000 

007"00 

000"00 

OCT 

5000,7000,0 


0112 

00 24 3 

00244 

00245 

0 14004 
017030 
001036 

OCT 

14004, 17030, 

1036 

0111 

00246 

00247 

016006 

011034 

OCT 

16006, 11034, 

4022 
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MICPOCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 



00250 

004022 



0114 

00251 

00252 

00253 

011032 
003024 
0 1 60 06 

OCT 

11032,3024, 16006 

0115 

00254 

00255 

00256 

000000 

000020 

005000 

OCT 

0,20,5000 

0116 

00257 
00260 
0026 1 

017026 
. 00 I' - ' 40 
014002 

OCT 

17C26, 1040, 14002 

IIP 

00262 

00263 

00264 

011034 

003024 

015006 

OCT 

11034, 3024,15006 

01 IB 

00265 

00266 
00 26 7 

0100 14 
000000 
OOOOPO 

OCT 

10014,0,0 

0119 

00270 

00271 

00272 

020026 
001036 
0 14^02 

OCT 

20026, 10 36, 14002 

0120 

00273 

00274 

00275 

001036 
0 13004 
017026 

OCT 

1036,13004,17026 

0121 

00276 

00277 
00 30 0 

00 4 1 "' 24 
016010 
011032 

OCT 

4024, 16010, 11032 

0122 

00301 

00302 
00 30 3 

000000 

000000 

010012 

OCT 

0,0,10012 

0123 

00304 

00305 
00 306 

001040 

013004 

020026 

OCT 

1040, 13004,20026 

0124 

00 307 
00310 
0031 1 

004024 

015010 

011034 

OCT 

4024,15010,11034 

0125 

00312 

00313 
00 314 

000016 

005000 

000000 

OCT 

16, 5000,0 

0126 

00315 

00316 
0031 7 

000000 

000000 

000000 

OCT 

0,0,0 

0127 

00320 
0032 1 
00322 

022004 

000044 

001000 

OCT 

22004,44, 1000 

0128 

00323 

00324 

00325 

000006 

023000 

004046 

OCT 

6,23000,4046 

0129 

00326 

00327 
00330 

000000 

000110 

046056 

OCT 

0, 110,46056 

0130 

00331 

00332 

00333 

000000 

000104 

025120 

OCT 

0,104,25120 

0131 

00334 

00335 

00336 

027066 

037054 

032072 

OCT 

27066,37054,32072 

0132 

00337 

00340 

000000 

000110 

OCT 

0,110,45056 


134 


NICPCCON" TELECOMMONICATED DATA 
DDP-516 ASSEMBLY LISTING 



00 341 

045056 



01 33 

00 342 

00343 

00344 

042054 

"5000" 

000000 

OCT 

42054,50000," 

"134 

00345 

00346 
00 347 

026062 
0 350 56 
"34076 

OCT 

26062, 35056,34076 

"135 

"0 350 

00351 

00352 

000"00 

000054 

047102 

OCT 

0,54,47102 

"135 

00 353 
00354 
0" 355 

034100 

"30"64 

035054 

OCT 

3410", 30064,35054 

"137 

00356 

00357 
00360 

000000 

000112 

030106 

*' OCT 

0,112,30106 

" 1 38 

00361 

00362 

00363 

000000 

000054 

050102 

OCT 

0,54,50102 

0 138 

"0364 
0 " 36 5 
00366 

032074 
026070 
0 370 60 

OCT 

32074,26070, 37060 

0140 

00 367 
00370 
00 371 

045056 

043000 

000000 

OCT 

45056, 43000,0 

0141 

"0372 
00373 
00 374 

043112 

027000 

000000 

OCT 

43112,27000,0 

0 14 2 

00 375 

00376 

00377 

000000 

"00104 

025116 

OCT 

0, 104, 25116 

0143 

"0400 
""40 1 
0 " 4 0 2 

025062 
0 35060 
0 34"76 

OCT 

25062,35060,34076 

"14 4 

00403 

00404 
"0405 

043114 

027100 

000000 

OCT 

43114,27000,0 

0145 

"0 4"6 
00407 
CO 4 1 0 

042054 

047000 

0000"0 

OCT 

42054,47000,0 

"146 

"0411 

""u 1 2 
004 13 

030066 
"37052 
0 32072 

OCT 

30066, 37052,32072 

0 147 

004 14 
00415 
0"4 16 

025116 

041000 

000000 

OCT 

25116,41000,0 

"I40 

"04 17 
"0420 
00 421 

032074 
025070 
0 370 56 

OCT 

32074,25070, 37056 

0149 

00422 

"0423 

""424 

000000 

000114 

030106 

OCT 

0,114,30106 

015" 

""425 

00426 

00427 

025120 

041000 

ooooco 

OCT 

25120,41000,0 

0151 

0043" 

00431 

034 1 "0 
027064 

OCT 

34100,27064,35052 
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WICPOCONP TELECOfl.ITJWTCATEO DATA 
DDP-51 6 ASSEMPL Y LISTING 



p 0 4 3 2 

0 350 52 



p 1 52 

00433 

00434 
P043S 

046056 

043000 

ocoopo 

OCT 

46056,43009,0 

n 153 

00436 

00437 
00440 

023000 
00 30 50 
P00006 

OCT 

23000, 3050, 6 

0 1 S/4 

P044 1 
00442 
0044 3 

0000 Op 

OOOOOO 

oopppp 

OCT 

0,0,0 

PISS 

00444 

P0445 

00446 

000042 

001000 

022002 

OCT 

42,1000,22002 

0156 

00447 
00 450 
0045 1 

037056 

033074 

025062 

OCT 

37056, 33074, 25062 

01S7 

00452 

00453 

00454 

OOOOOO 

000060 

043112 

OCT 

0,60,43112 

0158 

00455 

00456 

00457 

OOOOOO 
0001 20 
042052 

OCT 

0,120,42052 

P150 

00460 

00461 

00462 

035054 

031100 

030066 

OCT 

35054, 31100, 30066 

016P 

00463 

00464 

00465 

OOOOOO 

000060 

043114 

OCT 

0,60,43114 

016 1 

00466 

00467 
00470 

047102 

025000 

OOOOOO 

OCT 

47102, 25000,0 

C162 

00471 

00472 

00473 

035052 
031100 
P 270 66 

OCT 

35052,31100,27066 

0 163 

00474 

00475 

00476 

0301 10 
046000 
OOOOOO 

OCT 

30110, 46000,0 

0 1 6 14 

PP477 

00500 

00501 

OOPOOO 
O0P1 16 
942 n 52 

OCT 

0, 1 16,42052 

0 1 6S 

00502 

00503 

00504 

037060 
0 330 74 
026062 

OCT 

37060, 33074,26062 

0166 

00505 

00506 

00507 

030110 

045000 

000000 

OCT 

30110,45000,0 

P 167 

00510 
0051 1 
00512 

050102 

025000 

OOOOOO 

OCT 

50102,25000,0 

016P 

0051 3 

00514 

00515 

001000 

021004 

000042 

OCT 

1000 , 2 IPO 4,42 

0160 

00516 

00517 
00520 

004050 

000P10 

O23P00 

OCT 

4050, 10,23000 

ni 70 

P 052 1 
00522 

OOOOOO 

OOOOOO 

OCT 

0,0,0 
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NTCRCCOMP T FI.ECOflMON IC AT ED DATA 
DDP-516 ASSEMBLY LISTING 
00S2 3 DOOO^O 

0171 00524 177734 


END 


PROGRAM NAME 
SOURCE: EMIN 
BINARY: BEMIN 

ENTRY POINTS (location): EMIN 003034) 

GENERAL DESCRIPTION: 

This subroutine, when called, will calculate, using the PIP A fail status 
from locations '320 and '321, the code which tells the PIPA least squares 
matrix generator (see documentation for program source name GPMA, 
subroutine entry point MATR) which of the 22 matrices to generate. Prior 
to the call to MATR, this code is put in the A register. For an explanation 
of the codes and a flow chart of this subroutine, see documentation for 
program source name GMIN. 
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MICPOCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 
OOni BEL 

0002 SDBR EMIN 


0003 

00 00 0 

0 

000000 

EMIN 

DAC 

** 

ooou 

0000 1 

0 

02 

00321 


L DA 

•321 

0005 

00002 

1010 40 


SNZ 


0006 

0 0 0 0 3 

0 

01 

00026 


JMP 

OOFA 

0007 

00 00 4 

0 

11 

00320 


CAS 

• 320 

0008 

00005 

0 

01 

000 16 


JMP 

SFL A 

0009 

0O006 

0 

01 

00026 


JMP 

OOFA 

0010 

00007 

0 

06 

00033 


ADD 

ADST 

001 1 

000 10 

0 

04 

00034 


STA 

IDPT 

0012 

00 O 11 

0 

02 

00320 


L DA 

• 320 

0013 

00012 

0415 

75 


AI S 

3 

0114 

OO0 1 3 

0 

06 

00 3 20 


ADD 

• 320 

0015 

00014 

- 0 

06 

00034 


ADD* 

ID PT 

0 01.6 

000 15 

0 

01 

00031 


JMP 

PMCL 

0017 

00016 

0 

02 

00720 

SFL A 

LD A 

•320 

0018 

00017 

0 

06 

00033 


ADD 

ADST 

0 0 1 q ■ 

■00020 

0 

04 

000 34 


STA 

IDPT 

0 0 2 0 

00021 

0 

02 

00321 


L DA 

•321 

002 1 

00022 

0415 

75 


AI.S 

3 

0032 

00003 

0 

06 

00 321 


ADD 

' 321 

0073 

00024 

- 0 

06 

00034 


ADD* 

IDPT 

niiit 

.000 25 

0 

01 

00031 


JMP 

PMCL 

0025 

00026 

0 

02 

00320 

00FA 

LD A 

• 320 

0026 

000 27 

0415 

15 


AI.S 

3 

0027 

0 0 0 30 


06 

00 3 20 


ADD 

• 320 

0 078 

00031 

0 

10 

0O000 

PMCL 

CALL 

MATS 

0020 

OO 032 

- n 

01 

.ocooo 


■JMP* 

EMIN 

0 0 7.0 

on 03 3' 

Q : 

000035 

ADST 

DAC 

SUTA 

0 03 1 

00034 ■ 

0 0 0 0 0 0 

I DPT 

BSZ 

1 

0032 

00035 

000000 ■' 

SUTA 

OCT 

0,55,121,154,176,207 


00036 000055 


... 0 0 0 3 7 000121 

G O'O 4 0 ' 000164 

nr\~Q u i 000176 ' / '' 

o o 0.4 2 0002C7 

0033' END 
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PROGRAM NAME 
SOURCE: MG63 
BINARY: BMG63 

ENTRY POINTS (location): MG63 004012) 

GENERAL DESCRIPTION: 

This subroutine performs the 6x3 matrix multiplication . which 
transforms the six gyro A0 outputs into the x, y, z frame. The 6x3 
matrix is stored as double precision fractions in locations '334 — '377 
and it is the least squares matrix corresponding to the gyro fail status. 

„ g 

The six gyro pulse counts are single precision fractions scaled at 7 2 
radians (for example, 1 gyro pulse would be represented as an octal 000400 
= 7 2^ radians) and are stored in locations '400, '402, '404, '406, '410, 
and '412 respectively. 

A 0X, A0Y and A0Z are first formed in temporary double precision 
accumulators DTXU, DTYU and DTZU, double precision fractions scaled 

_ Q 

at 7 2 radians. These are then multiplied by 7/4 and added into DTXB, 
DTYB and DTZB (locations) '414- '415, '41 6- '41 7 and '420- ’421), which are 

_ g 

double precision fractions now scaled at 2 radians. Since the attitude 
algorithm (see documentation for ATTA, program name AA6S) only uses 
the high order of DTXB, DTYB and DTZB, the low order is saved as a 
residual and at the beginning of MG63 only the high order is zeroed. 

The internal subroutine MUPY will do three single by double multiplies 
and adds, performing the functions expressed by the following equations: 

DTXU = DTXU + (GMAT + I) PTMP 
DTYU = DTYU + (GMAT +2 + 1) PTMP 
DTZU = DTZU + (GMAT +4+1) PTMP 

where (GMAT + 2 + I) is the double precision fractional matrix element 
stored in locations '334 + 2 + 1 and '334 + 3 + I, where I is the contents of 
the index register. If, for example, 1 = 6 and PTMP = GBPC (gyro B 
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pulse count), the above equations can be written: 

DTXU = DTXU + ('342, ’343) GBPC 
DTYU = DTYU + ('344, *345) GBPC 
DTZU = DTZU + ('346, '347) GBPC 

The 6x3 matrix is shown below and it can be seen that the above 
example shows how all of gyro B's contribution to the X, Y and Z axes can 
be gotten by setting I = 6, PTMP = GBPC and doing the internal subroutine 
MUPY. 

('334, *335) ('342, '343) ('350, *351) ('356, '357) ('364, '365) ('372, '373) 

C336, '337) ('344, '345) ('352, '353) ('360, '361) ('366, '367) ('374, ’375) 

('340, '341) ('346, >347) ('354, '355) ('362, '363) ('370, '371) ('376, '377) 

6x3 matrix storage locations . 

The flow chart for MG63 follows: 
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A'JTOFIOW CH APT SET - D B A P Kfi OEHPLE'S FLOWCHAP? - HG63 PAGE Cl 

of 01 


FLOWCHART 


l 1 ?,*) TO DTXO, 
PTY»J, PTZ'I.ZFSO 
OUT DOUBLE 
PRECISION STOP AGS 
LOCATIONS HSPO TO 
ACCUHH! ATT SAT? IX 
H'lLTIPT TCATTOV 
PESUT.T 


X 2 


P TO DTXB, DTYR, I 
OTZB-ZSTO 0|»T | 

HIGH OSD**. 0 OF | 

STOPAGE LOCATIONS J 
•'SEP TO \CCXPT | 
NEW INCURS ENT AT. | 
0P1TA THBTA X, \ 

DETTA THBTA Y, | 

DE1.TA WETAZ 


I 


T5 


jst nnPY (HUpy 

WILL PEPFOPH THE 
FOI LOWING 
SFOPEKCE AND 
PETUPN JDTXn = 
DTXO ♦ <*334, 

* 335) GAPC,DTY'J = 

DTYH ♦ ( • 31ft, 

* 331) GAPCjDTYM = 

*T7« ♦ c?u( , 

* 3U 1 ) OA PC) 



i 

i 

X6 | 


f 6 

! 

; * 

6 

1 


• 1 
1 

” t 


T7 

i 

PTNP = 

gbpc 

1 


1 

1 

XP | 




.1ST miPY (H11PY 
will NOW OEPFOPS 
THE FOLLOWING 
SEQUENCE AND 

pptupn:dtxii » 

DTXU ♦ (• 34 2, 
*343) r.HPC,DTY»I = 
DTY'J ♦ (»34U, 

*3«S) GS-'TjDTZU = 
DTZ’I ♦ {'346, 
■34?) G3PC) 

I 


| .1ST H UP Y | 

| (ANAIAGOnS TO | 
1 ABOVS) | 



! 

X 1 2 

1 

12 

.J 

i 

I 

I = 18 

! 

r-4 

i 

i 

X 1 3 

l 

1 

1 

13 


i 

i FT 

“P » GDPC 

1 

C 5 

— i 
1 

i 

i 

i 

X 1 4 

1 

1 

1 

14 


JST H"PY 
(ANALAGOUS TO 
A30VE) 


15 

I 



DTI. F = DTXP ♦ {7 

DTX'l) /U 


DTYB = DTYR « 
DTYU) /4 


<7 | 


nrzn = dtzb ♦ (7 
DTZ'I) /U 


MG63 


®ET!14N 
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MTCPOCOMP TELECOM HtJ NIC AT ED DATA 


DDP-516 ASSEMBLY LISTING 


non i 
non ? 
n 003 

ooooo 

0 

00000O 

PEL 

SfTBP 

HO 6 3 DAC 

NG6 3 

** 

0004 

0000 1 

1400 40 

CPA 


POOS 

00002 

0 

04 

00 102 

STA 

DTXU . 

AOPfS 

00003 

0 

04 

00 103 

STA 

DTXtJ-H 

PA 07 

00004 

0 

04 

00 104 

STA 

DTYU 

OCflB 

00005 

0 

04 

or 105 

STA 

DTY n ♦ 1 

n po 9 

00006 

0 

04 

00106 

STA 

DTZU 

00 10 

00007 

0 

04 

00 107 

STA 

DTZU ♦ 1 

001 1 

000 10 

0 

04 

00 414 

STA 

DTXB 

0012 

0001 1 

0 

04 

O04 16 

STA 

DTY B 

0013 

000 1 2 

0 

04 

00420 

STA 

DTZB 

0014 

000 1 3 

0 

04 

ooooo 

STA 

0 

001 S 

0 0 0 1 4 

0 

02 

00400 

LD A 

0 A PC 

o o 1 6 

000 15 

0 

04 

00100 

STA 

PTMP 

0017 

00016 

0 

10 

00112 

J ST 

MU P Y 

o o i p 

00 0 17 

0 

3 5 

00173 

LDX 

= 6 

0 01 0 

00020 

0 

02 

90 402 

LD A 

OBPC 

0020 

00021 

0 

04 

00100 

STA 

PTMP 

0021 

C0022 

0 

1 A 

00112 

J ST 

MUPY 

A022 

0. 0 a 2 3 

0 

35 

or 1 72 

I DX 

= 12 

o op 3 

C 00 24 

0 

02 

00 4 04 

LD A 

OCPC 

o 0 74 

0 0 0 2 5 

0 

04 

AC 100 

STA 

PTMP 

0 0 2S 

00026 

0 

10 

00112 

J ST 

MUPY 

0026 

OOA 27 

0 

35 

00 171 

LDX 

= 1 R 

0 037 

00030 

0 

02 

00406 

LOA 

GDPC 

0 0 7 B 

0 0 0 3 1 

0 

04 

OOIOO 

STA 

PTMP 

0 0 20 

O0032 

0 

1 A 

00 112 

.1ST 

MUPY 

0030 

0 00 33 

0 

35 

OO 170 

LDX 

= 24 

0031 

00034 

0 

02 

004 10 

LDA 

GEPC 

0032 

00035 

0 

04 

00 100 

STA 

- PTMP 

0037 

0 0 a 3 

0 

10 

00 112 

J ST 

MUPY 

0034 

000 37 

0 

35 

00167 

LDX 

= 30 

oops 

00 04 0 

0 

02 

00412 

■LDA 

GFPC 

0 opr, 

0 0 0 4 1 

0 

04 

0 0 1 A f. 

STA 

PTMP 

00 77 

A A All 2 

0 

10 

OA 1 12 

J ST 

MUPY 

f 03P 

0 0 0 4 3 

000007 

DBL 


f 039 

00 A44 

0 

02 

00074 

DLD 

DBPO 

OP4A 

0 0 A 4 S 

0 

07 

00 102 

DSB 

DTXU 

0041 

00 046 

0401 

76 

LRS 

2 

0042 

00047 

0 

06 

00 102 

DAD 

DTX IJ 

0047 

A A f; 7 0 

0 

06 

00 102 

DAD 

DTXU 

0044 

00051 

0 

06 

004 14 

DAD 

DTXB 

00 4 5 

OA 052 

A 

04 

00414 

DST 

DTXB 

00415 

00 05 3 

0 

02 

00074 

DLD 

DBPO 

0047 

000S4 

0 

07 

00104 

DSB 

DTYU 

0047 

00 ASS 

040 1 

76 

LRS 

2 

0040 

0 0 0 S6 

0 

06 

00104 

DAD 

DTYU 

0050 

00057 

0 

06 

OO 104 

DAD 

DTYU 

GOBI 

00060 

0 

06 

0041 6 

DAD 

DTYB 

0 os 2 

0006 1 

0 

04 

004 16 

DST 

DTYB 

0 0 S 7 

00062 

0 

02 

00074 

DLD 

DBPO 

0054 

00063 

r\ 

07 

00 106 

DSB 

DTZU 

00 <57 

0 006 4 

040 1 

76 

LBS 

2 

"066 

0OO6S 

0 

06 

00 106 

DAD 

DTZU 

O0S7 

00066 

r\ 

06 

00106 

DAD 

DTZU 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0^58 

00067 

0 06 0C420 


DAD 

DTZB 

0 059 

00070 

0 04 0042C 


DST 

DTZB 

0 060 

A0071 

000705 


SGL 


0061 

00072 

-0 01 00000 


JMP* 

MG63 

0062 

00074 

000000 

DBPO 

DBP 

0 


00075 

000000 




0 0 63 

00 076 

000000 

TEMP 

DBP 

0 


00077 

000000 




0069 

00100 

' 000000 

PTMP 

DBP 

0 


00 101 

oooooo 




0 0 65 

00102 

oooooo 

DTXU 

DBP 

0 


0 010 3 

oooooo 




0066 

00 104 

000000 

DT YU 

DBP 

0 


00 105 

oooooo 




0067 

00106 

oooooo 

DTZU 

DBP 

0 


'00107 

oooooo 




0068 

00110 

oooooo 

HALF 

OCT 

0,40000 


00111 

040000 




0069 


000414 

DTXB 

EQfj 

*414 

0070 


000416 

DTYB 

EQU 

DTXB+2 

0071 


000420 

DTZB 

EQU 

DTXB+4 

0072 


000400 

GAPC 

EQU 

• 400 

0073 


000402 

GBPC 

EQU 

GAPC+-2 

0074 


000404 

GCPC 

EQU 

GAPC+4 

00 75 


000406 

GDPC 

EOU 

GAPC+6 

0076 


000410 

GEPC 

EQU 

GAPC+8 

AQ77 


700412 

GFPC 

EQU 

GAPC+10 

0078 


000334 

GMAT 

EQU 

• 334 

0079 

80112 

0 OOOOOO 

MUPY 

DAC 

** 

0 080 

00 113 

000007 


DBL 


0081 

001 14 

1 16 00334 


MPY 

GMAT, 1 

0082 

00 115 

0 04 00076 


DST 

TEMP 

0093 

00116 

0 02 00100 


DLD 

PTMP 

0084 

00117 

1 16 00335 


MPY 

GMAT + 1 , 1 

0 09 5 

00120 

0 06 00110 


DAD 

HALF 

0 08 6 

00121 

140320 


CS A 


0087 

00122 

000201 


IAB 


0088 

07 123 

140040 


CRA 


0089 

00124 

100001 


SRC 


0090 

00125 

140401 


CM A 


roq i 

00126 

0 06 00076 


DAD 

TEMP 

0092 

00127 

0 06 00102 


DAC 

DTXU 

0093 

00130 

0 04 00102 


DST 

DTXU 

0094 

0013 1 

0 02 00100 


DLD 

PTMP 

0095 

00132 

1 16 00336 


MPY 

GMAT+2,1 

0096 

00 133 

0 04 00076 


DST 

TEMP 

0097 

00134 

0 02 00100 


DLD 

PTMP 

0098 

00135 

1 16 00337 


MPY 

GM AT+-3 , 1 

0799 

00136 

0 06 00110 


DAD 

HALF 

0100 

00 137 

140320 


CS A 


0101 

00140 

000201 


IAB 


0102 

00141 

140040 


CRA 


0103 

00142 

100001 


SRC 


0104 

00143 

140401 


CM A 


0105 

00144 

0 06 00076 


DAD 

TEMP 

0106 

00145 

0 06 00104 


DAD 

DTYU 

0107 

00146 

0 04 00104 


DST 

DT YU 
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MTCPOC0MP TELECOMMUNICATED DATA 



npp- 

516 ASSEMPLY 

LISTING 


p 108 

00147 

0 02 00100 

DID 

PT MP 

0 IPO 

op 150 

"1 16 00 340 

MPY 

GH AT«-4, 1 

''IIO 

0015 1 

0 04 00076 

dst 

TEMP 

Dill 

00 152 

0 02 OP100 

DLD 

PT MP 

p 1 1 2 

00151 

1 16 00341 

MPY 

GM AT*5 ,1 

Pill 

00 154 

0 06 00 1 10 

DAD 

HALF 

pin 

o 0 1 5 5 

140 3 20 

CSA 


pus 

OP 156 

00020 1 

I A B 


pi 1 r, 

PO 157 

140040 

CPA 


pi IP 

00 16C • 

100001 

SRC 


PI 1R 

P016 1 

140401 

C M A 


PI 10 

P P 1 6 2 

0. 06 00076 

DAD 

TEMP- 

p 1 2 p 

00163 

0 06 00106 

DAD 

DT7 0 

0121 

00 164 

0 04 00106 

DST 

DT7.fi 

PI 22 

p p 1 6 5 

O00PP5 

SOL 


p 1 2 V 

PQ 166 

-o 01 00112 

JMP* 

MOPY 

n 124 

P0167 

000016 

END 



00 170 

000030 




p P 1 7 1 

000022 




00 17 2 

000014 




PO 171 

000006 
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PROGRAM NAME 
SOURCE: MV63 
BINARY BMV63 

ENTRY POINTS (location): MP63 ('03664) 

GENERAL DESCRIPTION: 

This subroutine performs the 6x3 matrix multiplication which 
transforms the 6 PIPA AV outputs into the X, Y, Z frame. It is an almost 
identical program to MG63 (see documentation for MG63) except that AVX, 
AVY and AVZ do not have to be scaled by 7/4 as in the gyro 6x3 
multiplication. 
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flTC 1 ? OCO H P TFLECOH HUNICATED DATA 


DDP-5 1 6 AS SEHBLY LISTING 


000 1 




REL 


0002 




STJSR 

HP63 

0003 

00000 

0 000000 

HP63 

DAC 

** 

0004 

0000 1 

140040 


CRA 


0005 

00002 

0 04 00614 


STA 

DVXB 

0006 

00003 

0 04 0C616 


STA 

DVYB 

0007 

no 00 4 

0 04 00620 


STA 

DVZB 

nr rs 

nopo 5 

0 04 00000 


STA 

0 

oooq 

00006 

0 02 00 600 


LOA 

A A PC 

001 0 

00007 

0 04 00040 


STA 

PTHP 

0011 

poo 10 

0 10 on 0 4 4 


.1ST 

HUPY 

0012 

O 0 P 1 1 

0 35 00125 


LDX 

= 6 

0013 

OO 012 

0 02 00602 


L D A 

ABPC 

0014 

00013 

0 04 00040 


STA 

PTHP 

0016 

000 1 4 

0 10 00044 


.1ST 

HUPY 

0016 

pool 5 

0 35 00124 


LDX 

= 12 

0017 

ooni 6 

0 02 00604 


L D A 

ACPC 

0018 

00017 

0 04 00040 


STA 

PTHP 

C "19 

00020 

0 10 00044 


J ST 

HUPY 

0020 

00021 

0 36 00123 


LDX 

= 18 

0021 

00022 

0 02 00606 


1, DA 

ADPC 

0022 

00023 

0 04 00040 


STA 

PT HP 

0023 

00024 

0 10 00044 


J ST 

HUPY 

0024 

00025 

0 35 00122 


LDX 

= 24 

0025 

00026 

0 02 00610 


I, DA 

AEPC 

0026 

00027 

0 04 00 0 40 


STA 

PT H P 

0077 

0 0 0 3 0 

0 10 0 0 0 4 4 


J ST 

HUPY 

oo 2 S 

nooq 1 

0 35 00121 


LDX 

= 30 

0020 

0 0 0 3 2 

0 02 00612 


L DA 

A FPC 

0 03 0 

0 0 0 3 3 

0 04 00040 


STA 

PTHP 

00 31 

OO 034 

0 10 00044 


.1ST 

HUPY 

0032 

00035 

-0 01 00000 


.HIP* 

HP63 

0033 

0O036 

000000 

TEMP 

DBP 

0 


00037 

OCOOPO 




0034 

00040 

OOOOCO 

PTHP 

DBP 

0 


00041 

OOQOOO 




0076 

00O4 2 

oonono 

HALF 

OCT 

0,40000 


OO 04 3 

040000 




00 76 


000614 

DVXB 

FQU 

•614 

0037 


000616 

DVYB 

EQU 

DVXB+2 

00 3 8 


000620 

DVZB 

FOB 

DVXB+4 

0 0 7 q 


000600 

A A PC 

EQU 

•600 

004 0 


O00602 

A BPC 

EO T J 

AAPC4-2 

0041 


0006 O 4 

ACPC 

EQU 

A APC + 4 

0042 


000606 

APPC 

EQU 

AAPC +6 

0043 


0006 10 

A EPC 

EQU 

AAPC+B 

0044 


000612 

A FPC 

EQU 

AAPC+10 

0045 


000622 

PHAT 

F.QH 

•622 

0 046 

0 00 44 

0 000000 

HUPY 

DAC 

** 

OO 47 

OOO 46 

00,3007 


DEL 


0 0 4 8 

OO046 

1 16 00622 


HPY 

PH AT, 1 

0049 

000 47 

0 04 00036 


D ST 

TEHP 

0060 

0 00 50 

0 02 00040 


DID 

PTHP 

0051 

0006 1 

1 16 00623 


HPY 

PHAT+1 ,1 

0052 

00052 

0 06 00042 


DAD 

HALF 

0053 

00053 

140320 


C S A 


0064 

00054 

000 20 1 


I A B 
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MICROCOMP TELECOM MO NIC AT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0055 

00055 

140040 

CRA 


0056 

00056 

100001 

SRC 


0057 

00057 

140401 

CMA 


0 058 

00060 

0 06 00036 

DAD 

TEMP 

0059 

00061 

0 06 00614 

DAD 

DVXB 

0060 

00062 

0 04 00614 

DST 

DVXB 

0061 

00063 

0 02 00040 

OLD 

PT HP 

0062 

00064 

1 16 00624 

MPY 

PM AT*2 , 1 

0063 

00065 

• 0 04 00036 

DST 

TEMP 

0064 

00066 

0 02 00040 

OLD 

PTHP 

0065 

00067 

1 16 00625 

MPY 

PMAT+3 , 1 

0066 

00070 

0 06 00042 

DAD 

HALF 

0067 

00071 

140320 

CSA 


0068 

00072 

000201 

IAB 


0069 

00073 

140040 

CRA 


0070 

00074 

100001 

SRC 


0071 

00075 

140401 

CMA 


0072 

00076 

0 06 00036 

DAD 

TEMP 

0073 

00077 

0 06 00616 

DAD 

DVYB 

0074 

00100 

0 04 00616 

DST 

DVYB 

0075 

00101 

0 02 00040 

DLD 

PTHP 

0076 

0010 2 

1 16 00626 

MPY 

PMAT*4,1 

0077 

00103 

0 04 00036 

DST 

TEMP 

0078 

00104 

0 02 00040 

DLD 

PTHP 

0079 

00105 

1 16 00627 

MPY 

PRAT+5 ,1 

0080 

00106 

0 06 00042 

DAD 

HALF 

0081 

00107 

140320 

CSA 


0082 

001 10 

000201 

IAB 


0 083 

00111 

140040 

CRA 


0084 

00112 

100001 

SRC 


0085 

00113 

140401 

CMA 


0086 

00114 

0 06 00036 

DAD 

TEMP 

0087 

00115 

0 06 00620 

DAD 

DYZB 

0088 

00116 

0 04 00620 

DST 

DVZB 

0089 

00117 

000005 

SGL 


0090 

00120 

-0 01 00044 

J HP* 

HUPY 

0091 

00121 

000036 

END 



00122 

000030 




00123 

000022 

- 



00124 

000014 




00125 

000006 
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PROGRAM NAME 
SOURCE: SPUN 
BINARY: BSPUN 

ENTRY POINTS (location): SPUN C05560) 
GENERAL DESCRIPTION: 


This subroutine when called will correct the quaternion in order to 
maintain it as a unit quaternion. It imposes the constraint that 

i ”- ” - • . 2. 2 2 2 , ' . 

> + p + f> + p =1. 

x y z 


Ideally the equations to be implemented would be 



X d 



c 

Z 


d 

d 

d 


where 


d = 




2 , 2 , 2 

+ p + p + p 
r x Ky r z ■ 


However, since the sum of the squares of the elements of the quaternion 
never deviates significantly from 1, we can simplify as follows: 


_ -.2 , 2 , 2 , 2 . 
e-X+p +p +p -1 
r y v 7. 


or 


•j. 2, 2, 2, 2 , , 

X+p +p +p - 1 + e 
y y K z 






vl + e— 1 +y 



so 
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V-X(l-f-) 

p x’~ Px (1 ’f> 

p y ~ p y (1 "IT* 

P Z ’-Pz (1 ~f> 

Using the scaling and terminology for the quaternion described in the 
program AA6S 

> -°v P 7 

(i.e., L = y, RX = ~ , RY = -f- and RZ = ~) 

we derive the new constraint that 

L 2 + RX 2 + RY 2 + RZ 2 equal 1/4 

L’ = L D 
RX' = RX D 
RY' = RY D 
RZ' = RZ D 


where 

D = ■- 1 .- 1 = l -= ^=- 

2 / L 2 + RX 2 + RY 2 + RZ 2 

E = L 2 + RX 2 + RY 2 + RZ 2 - ~ 

L 2 + RX 2 + RY 2 + RZ 2 = y + E 

Jl? + RY 2 + RY 2 + RZ 2 = + E-y+ E 

D ~ 1 + 2E " 2E 
so 

L'= L (1-2E) 

RX' =.RX (1-2E) 

RY' = RY (1-2E) 

RZ' = RZ (1-2E) 
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or 


AL = -2E L 
ARX = -2E RX 
ARY = -2E RY 
ARZ = -2E RZ 

Now expand the AL term (the ARX, ARY and ARZ terms are analogous). 
Since AL is very small we shall really calculate 

2 24 AL = -2 25 E L. 
define FACT = -2 E. Then 


AL 


FACT L 
„24 


since 


then 


T _ T i ,_L2_ + _L ; 3_ 
L " L1 + 2 15 + 2 30 


FACT LI , FACT L2 , FACT L3 
2 24 2 39 J34— 


and we need only calculate 


AL = 


FACT LI 
' r.24 


repeating we have 


E = L 2 + RX 2 + RY 2 + RZ 2 - 1/4 


and 


2 T ,2 , L2 2 , L3 2 , LI L2 , LI L3 , L2 L3 

L = JL/1 + 7T7T ‘ + — + + 


2 30 2 60 2 14 2 29 2 44 


pv 2 _ PV1 2 , RX2 2 , RX3 2 , RX1 RX2 , RX1 RX3 , RX2 RX3 

IV-A AAl i o /-» ' /'•/"»• i A * r\ > 


2 30 ' 2 60 ' 2 14 


,29 


,44 


RY = . . . 


RZ = . . . 
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\ 


substituting and gathering terms we get 

E = LI 2 + RX1 2 + RY1 2 + RZ1 2 

+ L2 2 + RX2 2 + RY2 2 + RZ2 2 . L3 2 + RX3 2 + RY3 2 + RZ3 2 
2 30 2 60 


LI L2 + RX1 RX2 + RY1 RY2 + RZ1 RZ2 



LI L3 + RX1 RX3 + RY1 RY3 + RZ1 RZ3 


, L2 L3 + RX2 RX3 + RY2 RY3 + RZ2 RZ3 JL. 

2 ** ' 4 

We now want to calculate 

FACT = -2 25 E 


Since FACT has only 15 bits of significance, all terms contributing to E 

40 

with denominators greater than 2 can be ignored. This eliminates the 
terms 


L3‘ 


,60 


anc j - L2 L?i 
2 44 


The flow chart for the implementation on the DDP516 of the above 
derivation follows. 
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AUTOPLOW CHART SET 


DRAPER OEHPLE* S FLOWCHART - SPUR 


PAGE 01 

of 01 


FLOWCHART 


/ II / • 


I 

I 

1 01 

SUMM -12**212**3 * | 

(LI L3)/ 2 ** 2 * i 

RX2**2I2**3 * | 


(RXl RX3)/2**2 ♦ 
RY**2/2**3 ♦ 
IRY1 RY3)72**2 ♦ 
RZ**2/ 2**3 * 
(RZ1 RZ3I7 2**2 

1 

1 

12 | 

02 

| SORB = 

1 (SIMA) /2** 1 5 

1 

1 ' 

1 

I 

13 | 

C 3 

i SUB". * SUSP ♦ (LI 
| 12 ♦ P X 1 p X 2 ♦ 

| RT 1 FY2 ♦ RZ1 

| 9Z2)/2**2 

1 

1 

1 

1 

1 

xo ( 

no 

i SOPH ♦ 

| (THRD) /2**15 a 

| (Stlfir) /2**12 

i 

i 

i 

1 

1. . 

15 1 

05 

| SUBP = StJHB ♦ 

| L1**2 ♦ SX 1** 2 * 
| S1 1 **2 ♦ PZ1**2 

1 

1 

1 

1 

1 

X 6 I 

06 

| A,P * SMB 1 - 1/« | 

\ (DOUBLE PRECISION f 
| ACCUH ML ATOP) ( 

1 

1 

*7 | 

07 


I A , P = A, 9 2**15 | 

| (AT THIS POIFT | 

| A , B IS EITHER | 

| OR 1777T7, SO 1 

| IAB, CPA IS SA 1 E | 
| AS 2**15 I 


I 

1 

X B I CR 


| A , B = A , B ♦ T H FD | 

1 

» 

X9 I 

09 

1 FACT = 

» - 2** 1 0 ( A , B) 

1 

1 

1 

1 

X IP 1 

10 

I L = I ♦ (FACT | 

| L1)/2**2« ( 

1 

1 

XII | 

11 

J PX = PX ♦ (PACT j 
I PX1)/2**2« I 


I 

I 

X 12 | 12 


r i 

| PI = PI ♦ (FACT | 

I PT1)/2**2« I 

i — — — - j r 

I I 

I f 

i - -»j 


I 

- SPUN —i 


XI 3 | 13 

| P£ » RT ♦ (FACT | 
( PZ1)/2**2U I 


RETURN 


HICROCOHP TELECOM HON IC AT ED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


0001 




REL 


000 2 




SOBR 

SPOH 

0003 

00000 

0 000000 

SPON DAC 

** 

0004 

00001 

0 02 

00461 

IDA 

L2 

0005 

00002 

000007 

DBL 


0006 

00003 

0 16 

00461 

HPY 

L2 

0007 

00004 

0 401 

77 

LRS 

1 

0008 

00005 

0 04 

00244 

DST 

' OVPP 

0009 

00006 

0 02 

00462 

DLD 

L3 

0010 

00007 

000201 

IAB 


0011 

00010 

0 07 

00254 

DSB 

FODG 

0012 

0001 1 

0 16 

00460 

HPY 

LI 

0013 

00012 

0 06 

00244 

DAD 

OVFP 

0014 

00013 

0 401 

76 

LRS 

2 

0015 

00014 

0 04 

00242 

DST 

SOHH 

0016 

00015 

0 02 

00464 

DLD 

RX1 

0017 

00016 

000201 

IAB 


0018 

00017 

0 16 

00465 

HPY 

RX 2 

0019 

00020 

0 401 

77 

. LRS 

1 

0020 

00021- 

0 04 

00244 

DST 

OVFP 

0021 

00022 

0 02 

00466 

DLD 

RX3 

0022 

00023 

000201 

IAB 


0023 

00024 

0 07 

00254 

DSB 

FODG 

0024 

00025 

0 16 

00464 

HPY 

RX 1 

0025 

00026 

0 06 

00244 

DAD 

OVFP 

0026 

00021 

0401 

76 

LRS 

2 

0027 

00030 

0 06 

00242 

DAD 

SOHH 

0028 

00031 

0 04 

00242 

DST 

SOHH 

0029 

00032 

0 02 

00470 

DLD 

RY1 

0030 

000 3 3 

000201 

IAB 


0031 

00034 

0 16 

00471 

HPY 

RY2 

0032 

00035 

0401 

77 

LRS 

1 

0033 

00036 

0 04 

00244 

DST 

OVFP 

0034 

00037 

0 02 

00472 

DLD 

RY 3 

0035 

00040 

000201 

IAB 


0036 

00041 

0 07 

00254 

DSB 

FODG 

0 037 

00042 

0 16 

00470 

HPY 

RY 1 

00 38 

00043 

0 06 

00244 

DAD 

OVFP 

003 9 

0004 4 

0 401 

76 

LRS 

2 

0040 

00045 

0 06 

00242 

DAD 

SOHH 

0041 

00046 

0 04 

00242 

DST 

SOHH 

0042 

00047 

0 02 

00474 

DLD 

RZ 1 

0043 

00050 

000201 

TAB 


0044 

00051 

0 16 

00475 

HPY 

RZ 2 

0045 

00052 

0401 

77 

LRS 

1 

0046 

00053 

0 04 

00244 

DST 

OVFP 

0047 

00054 

0 02 

00476 

DLD 

RZ 3 

0048 

00055 

000201 

IAB 


0049 

00056 

0 07 

00254 

DSB 

FODG 

0050 

00057 

0 16 

00474 

'HPY 

RZ 1 

0051 

00060 

0 06 

00244 

DAD 

OVFP 

0052 

00061 

0401 

76 

LRS 

2 

0053 

00062 

0 06 

00242 

DAD 

SOHH 

0054 

00063 

0401 

61 

LRS 

15 

0053 

00064 

0 04 

00242 

DST 

SOHH 

0056 

00065 

0 02 

00460 

DLD 

LI 

0057 

00066 

0 16 

00461 

HPY 

L2 
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HICROCOHP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


0058 

00067 

0 

04 

00244 

DST 

OVFP 

0059 

00070 

0 

02 

00464 

DLD 

H1 1 

0060 

00071 

0 

16 

00465 

HPY 

HI 2 

0061 

00072 

0 

06 

00244 

DAD 

OYFP 

0062 

00073 

0 

04 

00244 

DST 

OVFP 

0063 

00074 

0 

02 

00470 

DLD 

BY 1 

0064 

00075 

0 

16 

00471 

HPY 

HY2 

0065 

00076 

0 

06 

00244 

DAD 

OVFP 

0066 

00077 

0 

04 

00244 

DST 

OVFP 

0067 

00100 

0 

02 

00474 

DLD. 

HZ 1 

0068 

00101 

0 

16 

00475 

HPY.~ 

HZ 2 

0069 

00102 

0 

06 

00244 

DAD 

OVFP 

0070 

00103 

0401 

76 

LBS 

2 

0071 

00104 

0 

06 

00242 

DAD 

SUHH 

0072 

00105 

0 

04 

00242 

DST 

SDHM 

0073 

00106 

0411 

75 

LLS 

3 

0074 

00107 

140040 

CBA 


0075 

00110 

0 

04 

00252 

DST 

THHD 

0076 

00111 

0 

02 

00242 

DLD 

SUHH 

0077 

00112 

0401 

64 

LBS 

12 

0078 

00113 

0 

04 

00242 

DST 

SUHH 

0079 

00114 

0 

02 

00460 

DLD 

LI 

0080 

00115 

0 

16 

00460 

MPY 

LI 

0 OR 1 

00116 

0 

06 

00242 

DAD 

SUHH 

0082 

00117 

0 

04 

00242 

DST 

SUHH 

0083 

00120 

0 

0 2 

00464 

DLD 

BX 1 

0084 

00121 

0 

16 

00464 

MPY 

BX1 

0085 

00122 

0 

06 

00242 

DAD 

SUHH 

0086 

00123 

0 

04 

00242 

DST 

SUHH 

0087 

00124 

0 

02 

00470 

DLD 

BY 1 

.0088 

00125 

0 

16 

00470 

HPY 

BY1 

0089 

00126 

0 

06 

00242 

DAD 

SUHH 

0090 

00127 

0 

04 

00242 

DST 

SUHH 

0091 

00130 

0 

02 

00474 

DLD 

BZ 1 

0092 

00131 

0 

16 

00474 

HPY 

BZ1 

0093 

00132 

0 

06 

00242 

DAD 

SUHH 

0094 

00133 

0 

07 

00250 

DSB 

TWNZ 

0095 

00134 

000201 

IAB 


0096 

00135 

140040’ 

CBA 


0097 

00136 

000201 

IAB 


0098 

00137 

0 

06 

00252 

DAD 

THBD 

0099 

00140 

0411 

66 

LLS 

10 

0100 

00141 

0 

06 

00256 

DAD 

HALF 

0101 

00 142 

140407 

TCA 


0102 

00143 

0 

04 

00246 

DST 

FACT 

0103 

00144 

0 

16 

00460 

MPY 

LI 

0104 

00145 

0 

06 

00256 

DAD 

HALF 

0105 

00146 

000201 

IAB 


0106 

00147 

140040 - 

CBA 


0107 

00150 

000201 

IAB 


0108 

00151 

0401 

67 

LBS 

9 

0109 

00152 

0 

06 

00462 

DAD 

L3 

0110 

00153 

0 

04 

00244 

DST 

OVFP 

0111 

00154 

140040 

CBA 


0112 

00155 

0 

04 

00462 

DST 

L3 

0113 

00156 

0 

02 

00244 

DLD 

OVFP 

0114 

00157 

0401 

61 

LBS 

15 
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MICROCOMP TELECOM SONICATED DATA 



DDP- 

■516 ASSEMBLY 

LISTING 


Oils 

00160 

0 06 00460 


DAD 

LI 

0116 

00161 

0 04 00460 


DST 

LI 

0117 

00162 

0 02 00464 


DLD 

RX1 

0118 

00163 

0 16 00246 


MPY 

FACT 

0118 

00164 

0 06 00256 


DAD 

HALF 

0120 

00165 

000201 


IAB 


0121 

00166 

140040 


CRA 


0122 

00167 

000201 


IAB 


0123 

00170 

0401 67 


LRS 

9 

0124 

00171 

0 06 00466 


DAD 

RX3 

0125 

00172 

0 04 00244 


DST 

OVFP 

0126 

00173 

140040 


CRA 


0 127 

00174 

0 04 00466 


DST 

RX3 

0128 

00175 

0 02 00244 


DLD 

OVFP 

0128. 

00176 

0401 61 


LRS 

15 

0130 

00177 

0 06 00464 


DAD 

RX1 

0131 

00200 

0 04 00464 


DST 

RX1 

0132 

00201 

0 02 00470 


DLD 

RY1 

0133 

00202 

0 16 00246 


MPY 

FACT 

0134 

00203 

0 06 00256 


DAD 

HALF 

0135 

00204 

000201 


IAB 


0136 

00205 

140040 


CRA 


01 37 

00206 

000201 


IAB 


0138 

00207 

0 401 67 


LRS 

9 

0139 

00210 

0 06 00472 


DAD 

RY3 

0140 

00211 

0 04 00244 


DST 

OVFP 

0141 

00212 

140040 


CRA 


0142 

00213 

0 04 00472 


DST 

RY3 

0143 

00214 

0 02 00244 


DLD 

OVFP 

0144 

00215 

0401 61 


LRS 

15 

0145 

00216 

0 06 00470 


DAD 

RY1 

0146 

00217 

0 04 00470 


DST 

RY 1 

0147 

00220 

0 02 00474 


DLD 

RZ1 

0148 

00221 

0 16 00246 


MPY 

FACT 

0149 

00222 

0 06 00256 


DAD 

HALF 

0150 

00223 

000201 


IAB 


0151 

00224 

140040 


CRA 


0152 

00225 

000201 


IAB 


0153 

00226 

0 401 67 


LRS 

9 

0154 

00227 

0 06 00476 


DAD 

RZ3 

0155 

00230 

0 04 00244 


DST 

OVFP 

0156 

00231 

140040 


CRA 


0157 

00232 

0 04 00476 


DST 

RZ3 

0158 

00233 

0 02 00244 


DLD 

OVFP 

0159 

00234 

0401 61 


LRS 

15 

0160 

00235 

0 06 00474 


DAD 

RZ 1 

0161 

00236 

0 04 00474 


DST 

RZ1 

0162 

00237 

000005 


SGL 


0163 

00240 

-0 01 00000 


JHP* 

SPON 

0164 

00242 

000000 

SOHM 

DBP 

0 


00243 

000000 




0165 

00244 

000000 

OVFP 

DBP 

0 


00 245 

000000 




0166 

00246 

000000 

FACT 

DBP 

0 


00247 

000000 




0167 

00250 

020000 

THNZ 

OCT 

20000 


00251 

000000 
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MICP0C0MP TELECOMMUNICATED DATA 


DDP-516 ASSEMBLY LISTING 


D 168 

00252 

00253 

00000O 

000000 

THPD 

DBP 

0 

0169 

00254 

00255 

040000 

oooooo 

FUDG 

OCT 

40000,0 

0 1 70 

00256 

00257 

0C0""0 

040000 

HALF 

OCT 

0,40000 

"171 


000460 

LI 

E 00 

•460 

"172 


000461 

L 2 

EQU 

L 1 + 1 

0 177 


000462 

L3 

EQU 

LI *2 

0174 


000464 

PX 1 

EOT! 

L 1 +4 

0176 


000465 

RX2 

EOU 

L1 + 5 

0176 


000466 

PX 3 

Eon 

LI +5 

" 177 


000470 

R Y1 

EOU 

L1 + 8 

0170 


000471 

RY2 

Eon 

L1+9 

0179 


000472 

PY3 

EOU 

LI + 10 

"IS" 


000474 

VI 1 

EQU 

L14-12 

"18 1 


000475 

P7.2 

EOU 

LI ♦ 1 3 

019 2 
0193 


000476 

V? 3 

EQU 

END 

L1+14 
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PROGRAM NAME 

SOURCE: VESP 

BINARY: BVESP 

RELATED MEMOS: T-493 

ENTRY POINTS (location): VELA ('04206) 

ACCESSABLE VARIABLES (location): FXX 004654), 
FXY 004656), FXZ 004660), FYX 004662), FYY (’04664), 
FYZ (’04666), FZX 004670), FZY (’04672), 

PZZ (’04674) 

GENERAL DESCRIPTION: 


This subroutine, when called, will construct a cosine matrix from 
the quaternion which transforms a vector in the body frame to the inertial 
frame. It will then multiply the AV in the body frame by this matrix to 
get AV in the inertial frame. The cosine matrix can be expressed in terms 
of the quaternion elements as: 


C(Q) 


l-2(py 2 + P Z 2) 

2(p x P y + X p z ) 

2(P X P Z ' ^Py) 


2( P X Py ' X Pz ) 

l-2(p x 2 +Pz 2 ) 
2(P y P Z + *P X ) 


2(p x p z + X Py ) 
2( Py P Z • V x ) 

1 • 2( P X 2 + Py 2) 


This can be written as: 


where 


f f f 


XX 

xy xz 

f 

f f 

yx 

3 

tsi 

f 


zx 

zy zz 

XX " 

1 - 2 <Py 2 + P Z 2 


) 


f xy = 2( P X Py‘ X P Z } 
f xz = 2( P x P z + X Py ) 


f = 1 - 2(p 2 + p 2 ) 
zz K x K y 
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Observe that all elements of the matrix consist of various combinations 

2 2 

of the nine quaternion products: p , p , 

2 x y 

p z* fi x p y’ p x p z’ p y p z' Xp x’ Xp y and ' X/ V Therefore, in the subroutine 
implementation the nine quaternion products are first calculated.. Only 30 
bits of each quaternion element is used and the cosine matrix elements 
are calculated to have a word size of 30 bits also. Scaling is as follows: 


X = 2 LI + 


L2 

r. 14 


_ , RX2 

Px.- 2RX1 + ^T4- 

RY2 


p = 2RY1 + 

“ \7 


p = 2RZ1 + 
Vr L 


2 14 
RZ2 


,14 


or 


2 _„2 , RX1 RX2 , RXZ 

Px - 4RX1 + " g 12 


RXSQ = — 2~ = 2RX1 2 + R^£l_p£2_ + JtX2_ 


the other 8 quaternion products are scaled the same as p^ 
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or 


FXX =-J~ RYSQ - RZSQ 


FZZ = ^ - RXSQ - RYSQ 

Now we can write the equations to be implemented as: 

DVIX = 4 (FXX DVXB + FXY DVYB + FXZ DVZB) 

DVIY = 4 (FYX DVXB + FYY DVYB + FYZ DVZB) 

DVIZ = 4 (FZX DVXB + FZY DVYB + FZZ DVZB) 

where DVIX is AV in the inertial frame scaled the same as DVBX, AV in 

the body frame. The flow chart for the implementation on the DDP-516 of 
the above derivation follows: 
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FLOWCHART - VELA 


161 


HICROCOMP TELECOM HO NIC AT ED DATA 


DDP-516 ASSEMBLY LISTING 


"001 



REL 


0002 



SOBR 

FXX 

0003 



SOBR 

FXY 

0004 



SUBR 

FXZ 

0005 



SOBR 

FYX 

0006 



SOBR 

FYY 

0007 



SOBR 

FYZ 

OOOfi 



SOBR 

FZX 

0009 



SOBR 

FZY 

0010 



SOBR 

,, FZZ 

0"1 1 



SOBR 

VELA 

0012 

ooooo 

0 000000 

VELA DAC 

** 

0013 

00001 

0 02 00465 

LDA 

RX2 

0014 

00002 

000007 

DBL 


0015 

00003 

0 16 00465 

MPY , 

RX2 

0016 

00004 

000201 

IAB 


0017 

00005 

1400 40 

CRA 


OOlfl 

00006 

0401 77 

LRS 

1 

0019 

00007 

0 04 00444 

DST 

T1 

0020 

00010 

0 02 00464 

DLD 

RX 1 

0021 

00011 

0 16 00465 

MPY 

RX2 

0022 

00012 

0 06 00444 

DAD 

T 1 

0023 

00013 

0 06 00512 

DAD 

SQRD 

0024 

00014 

0401 63 

LRS 

13 

0025 

000 15 

0 04 00444 

DST 

T1 

0026 

00016 

0 02 00464 

DLD 

RX 1 

0027 

00017 

0 16 00464 

MPY 

RX1 

0028 

00020 

0411 77 

LLS 

1 

"029 

00021 

0 06 00444 

DAD 

T1 

0030 

00022 

0 04 00470 

DST 

RXSQ 

0031 

00023 

0 02 00470 

DLD 

RY1 

0032 

00024 

000201 

IAB 


0033 

00025 

0 16 00471 

MPY 

RY2 

0034 

00026 

000201 

IAB 


0035 

00027 

140040 

CRA 


0036 

00030 

0 401 77 

LRS 

1 

0037 

00031 

0 04 00444 

DST 

T1 

0038 

00032 

0 02 00470 

DID 

RY 1 

0039 

00033 

0 16 00471 

MPY 

RY2 

0040 

00034 

0 06 00444 

DAD 

T1 

0041 

00035 

0 06 00512 

DAD 

SQRD 

0042 

00036 

0401 63 

LRS 

13 

0043 

00037 

0 04 00444 

DST 

T1 

0044 

00040 

0 02 00470 

DLD 

RY 1 

0045 

00041 

0 16 00470 

MPY 

RY1 

0046 

00042 

0411 77 

LLS 

1 

0047 

00043 

0 06 00444 

DAD 

T1 

0048 

00044 

0 04 00472 

DST 

RYSQ 

0049 

00045 

0 02 00474 

DLD 

RZ1 

0050 

00046 

000201 

IAB 


0051 

00047 

0 16 00475 

MPY 

RZ2 

0052 

00050 

000201 

IAB 


0053 

00051 

140040 

CRA 


0054 

00052 

0401 77 

LRS 

1 

0055 

00053 

0 04 00444 

DST 

T1 

0056 

00054 

0 02 00474 

DLD 

RZ 1 

0057 

00055 

0 16 00475 

MPY 

RZ2 
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MTCROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMRLY 

LISTING 


0058 

00056 

0 06 

00444 

DAD 

T1 

0"59 

00057 

0 06 

00512 

DAD 

SORD 

Of 60 

00060 

0401 

63 

LRS 

13 

DO 6 1 

00061 

0 04 

00444 

DST 

T 1 

0062 

0006 2 

0 02 

00474 

DLD 

RZ 1 

0063 

00063 

0 16 

00474 

MPY 

RZ 1 

OD64 

00064 

0411 

77 

LLS 

1 

n"65 

00065 

0 06 

00444 

DAD 

T 1 

0066 

00066 

0 04 

00474 

DST 

RZ S 0 

0067 

00067 

0 02 

00460 

DLD 

LI 

0068 

00070 

000201 

I AB 


onfi9 

0007 1 

0 16 

00465 

MPY 

RX 2 

0070 

00072 

000 20 1 

TAB 


0071 

00073 

140040 

CRA 


0072 

00074 

0 04 

0 C 4 4 4 

DST 

T1 

0073 

00075 

0 02 

00460 

DLD 

LI 

0004 

00076 

0 16 

00465 

MPY 

RX2 

0075 

00077 

0 06 

00444 

DAD 

T 1 

0 076 

OO 100 

0 04 

00444 

DST 

T 1 

0077 

0010 1 

0 02 

00464 

DID 

RX 1 

0078 

00102 

0 16 

00461 

MPY 

L2 

0070 

00 10 3 

0 06 

00444 

DAD 

T 1 

0 080 

00104 

0 06 

0D514 

DAD 

CPRD 

003 1 

00 105 

040 1 

62 

LRS 

14 

0 0 82 

00106 

0 04 

00444 

DST 

T1 

0093 

00 107 

0 02 

00460 

DI.D 

LI 

oo9u 

00110 

0 16 

00464 

MPY 

RX 1 

ooqe; 

00111 

0411 

77 

LLS 

1 

ooqfi 

00112 

0 06 

00444 

DAD 

T1 

0007 

00113 

0 04 

O0476 

DST 

LRX 

0098 

00114 

0 02 

00460 

DID 

LI . 

0089 

00115 

000201 

I A B 


OOP" 

00116 

0 16 

00471 

MPY 

RY2 

non 1 

0OH7 

000201 

TAB 


0092 

00120 

140040 

CRA 


0003 

00 12 1 

0 04 

00444 

DST 

T 1 

0094 

00122 

0 02 

00460 

DID 

LI 

0095 

00 123 

0 16 

00471 

MPY 

BY 2 

0OQ6 

00124 

0 06 

00444 

DAD 

T 1 

0097 

00 125 

0 04 

00 444 

DST 

T 1 

0 o 99 

00126 

0 02 

00470 

DID 

RY1 

OOQO 

00 127 

0 16 

00461 

MPY 

L 2 

0 100 

00 1 30 

0 06 

00444 

DAD 

T1 

0 101 

00 13 1 

0 06 

00514 

DAD 

CPRD 

010? 

00132 

0401 

62 

LRS 

14 

0103 

00 133 

0 04 

00444 

DST 

T 1 

0 104 

00134 

0 02 

00460 

DLD 

LI 

0105 

00 1 35 

0 16 

00470 

MPY 

RY 1 

0106 

00136 

041 1 

77 

LLS 

1 

0 10-7 

00137 

0 06 

00444 

DAD 

T 1 

0108 

00 1 40 

0 04 

00500 

DST 

LFY 

0109 

00 14 1 

0 02 

00460 

DLD 

LI 

0 110 

00142 

000201 

I AB 


0111 

00 143 

0 16 

00475 

MPY 

RZ 2 

0 112 

00144 

000201 

IAB 


0113 

00 145 

1400 40 

CPA 


0114 

00146 

0 04 

00444 

DST 

T1 
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HICPOCOMP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


0115 

00147 

0 

02 

00460 

DLD 

LI 

0116 

00150 

0 

16 

00475 

HPY 

RZ2 

0117 

00151 

0 

06 

00444 

DAD 

T1 

0118 

00152 

0 

04 

00444 

DST 

T 1 

0118 

00153 

0 

02 

00474 

DLD 

RZ 1 

0120 

00154 

0 

16 

00461 

MPY 

L2 

0121 

00155 

0 

06 

00444 

DAD 

T1 

0122 

00156 

0 

06 

00514 

DAD 

CPRD 

0127 

00157 

0401 

62 

LRS 

14 

0124 

00160 

0 

04 

00444 

DST 

T1 

0125 

00161 

0 

02 

00460 

DLD 

LI 

0126 

00162 

0 

16 

00474 

HPY 

RZ 1 

0127 

00163 

0411 

77 

LLS 

1 

0128 

00164 

0 

06 

00444 

DAD 

T1 

0128 

00165 

0 

04 

00502 

DST 

LRZ 

0130 

00166 

0 

02 

00464 

DLD 

RX 1 

0131 

00167 

000201 

I AB 


0132, 

00170 

0 

16 

00471 

MPY 

RY2 

0133 

00171 

000201 

I AB 


0134 

00172 

140040 

CRA 


0135 

00173 

0 

04 

00444 

DST 

T1 

0136 

00174 

0 

02 

00464 

DLD 

RX 1 

0137 

00175 

0 

16 

00471 

MPY 

RY2 

0138 

00176 

0 

06 

00444 

DAD 

T1 

0139 

00177 

0 

04 

00444 

DST 

T1 

0140 

00200 

0 

02 

00 470 

DLD 

RY 1 

0141 

00201 

0 

16' 

00465 

HPY 

RX2 

0142 

00 202 

0 

06 

00444 

DAD 

T1 

0143 

00203 

0 

06 

00514 

DAD 

CPRD 

0-1 4,4 

00204 

0401 

62 

LRS 

14 

0145 

00 205 

0 

04 

00444 

DST 

T1 

0146 

00206 

0 

02 

00464 

DLD 

RX 1 

0147 

00207 

0 

16 

00 4 70 

MPY 

RY1 

0148 

00 210 

0411 

77 

LLS 

1 

0 149 

0021 1 

0 

06 

00444 

DAD 

T1 

0150 

00212 

0 

04 

00504 

DST 

RXRY 

0151 

00213 

0 

02 

00464 

DLD 

RX 1 

0152 

00214 

000201 

IAB 


0 153 

00215 

0 

16 

00475 

HPY 

RZ2 

0154 

00216 

000201 

IAB 


0155 

00217 

1400 

40 

CPA 


0156 

00220 

0 

04 

00 444 

DST 

T 1 

0 157 

00221 

0 

02 

00464 

DLD 

RX 1 

0158 

00222 

0 

16 

00475 

MPY 

RZ 2 

0 159 

00223 

0 

06 

00444 

DAD 

T1 

0 160 

00 224 

0 

04 

00444 

DST 

T1 

0161 

00225 

0 

02 

00474 

DLD 

RZ 1 

0162 

00226 

0 

16 

00465 

HPY 

RX 2 

0163 

00227 

0 

06 

00444 

DAD 

T1 

0164 

00230 

0 

06 

00514 

DAD 

CPRD 

0165 

00231 

0401 

62 

LBS 

14 

0166 

00232 

0 

04 

00444 

DST 

T1 

0167 

00233 

0 

02 

00464 

DLD 

RX 1 

0168 

00234 

0 

16 

00474 

HPY 

RZ 1 

0169 

00235 

0411 

77 

LLS 

1 

0170 

00236 

0 

06 

00444 

DAD 

T1 

0171 

00237 

0 

04 

00506 

DST 

RXRZ 
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MTCPOCOMP TFT F.COMMONICATED DATA 
DDP-516 ASSEMBLY LISTING 


"172 002U0 
0173 "0241 
"174 "0242 
"175 "0243 

0176 00244 

0177 00245 
"178 00246 
"179 00247 
"18" "0250 
0181 ""251 
"132 00252 

0193 "0253 
"184 "0254 
0185 "0255 
"186 00256 

0187 00257 

0188 00260 
"199 "0261 
01"" "0262 
"191 00263 
0192 "0264 
o 1 8 3 00265 

0194 ""266 
"19S "" 26' 7 
"196 0027" 
"197 00271 
" 198 00 272 
0198 00273 
020" 00274 
0201 00275 
"202 00276 
"203 00277 
"2"4 00300. 
02"5 00301 

0206 00302 

0207 00303 
02"8 00304 

0209 00305 

0210 00306 
"211 00307 
"212 00310 

0213 "0311 

0214 00312 
"215 00 31.3 
0216 00314 
"217 00315 

0218 00316 

0219 00317 

0220 00320 

0221 C0321 

0222 00322 

0223 00323 

0224 O03 r 24 

0225 "0325 

0226 00326 

0227 00327 

0228 "0330 


0 02 70 4 70 
"0020 1 
0 16 00475 
000201 
1 4"0 40 


0 

04 

00444 

0 

02 

0C470 

0 

16 

00475 

0 

06 

00444 

0 

04 

00444 

0 

02 

00474 

0 

16 

00 471 

o 

06 

00444 

0 

06 

"0514 

0401 

62 

0 

04 

00444 

0 

02 

00470 

0 

16 

00 4 74 

"411 

77 

0 

06 

00444 

0 

04 

00 510 

0 

"2 

00516 

0 

"7 

00472 

0 

07 

00474 

0 

04 

00446 

0 

02 

00 504 

0 

07 

00502 

0 

04 

0C450 

0 

02 

0"506 

o 

06 

00500 

0 

04 

70452 

0 

02 

00516 

0 

07 

00470 

o 

07 

00474 

0 

04 

00456 

0 

02 

00510 

0 

07 

00476 

0 

04 

00460 

0 

02 

00504 

0 

06 

00502 

0 

04 

O0 4 54 

o 

02 

00516 

0 

07 

00470 

0 

07 

00472 

0 

04 

00466 

0 

02 

00506 

0 

07 

00500 

0 

04 

00462 

0 

02 

00510 

0 

06 

00476 

0 

04 

00464 

0 

02 

00446 

0 

16 

00614 

0 

04 

00666 

0 

02 

00450 

0 

16 

00616 

0 

06 

00666 


DLD 

R Y 1 

I AB 


MPY 

R72 

IAB 


CRA 


DST 

T1 

DLD 

RY 1 

MPY 

RZ2 

DAD 

T1 

DST 

T 1 

DLD 

RZ 1 

MPY ■ 

RY2 

DAD 

T1 

DAD 

CPRD 

LRS 

14 

DST 

T 1 

DLD 

R Y 1 

MPY 

RZ 1 

LLS 

1 

DAD 

T 1 

DST 

R Y RZ 

DLD 

ONOT 

DSB 

RYSQ 

DSB 

RZSQ 

DST 

FXX 

DLD 

RXRY 

DSB 

LP7 

DST 

FXY 

DLD 

RXRZ 

DAD 

LRY 

DST 

FXZ 

DLD 

ONQT 

DSB 

RXSQ 

DSB 

RZSQ 

DST 

FYY 

DLD 

RYRZ 

DSB 

LRX 

DST 

FYZ 

DLD 

RXRY 

DAD 

LR7. 

DST 

FYX 

DLD 

ONQT 

DSB 

RXSQ 

DSB 

RYSQ 

DST 

FZZ 

DLD 

RXRZ 

DSB 

LRY 

DST 

FZX 

DLD 

RYRZ 

DAD 

LRX 

DST 

FZY 

DLD 

FXX 

MPY 

DVBX 

DST 

DVIX 

DLD 

FXY 

MPY 

DVB Y 

DAD 

DVIX 
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BTCROCOBP TELECOBBtJNICATED DATA 



DDP- 

•516 

ASSEBBLY 

LISTING 


0229 

0033 1 

0 

04 

00666 

D ST 

DVIX 

0230 

00332 

0 

02 

00452 

DLD 

FXZ 

0231 

00333 

0 

16 

00620 

BP Y 

DVBZ 

0232 

00334 

0 

06 

00666 

DAD 

DVIX 

0233 

00335 

0 

41 1 

76 

LLS 

2 

0234 

00336 

0 

04 

00666 

DST 

DVIX 

0235 

00337 

0 

02 

00454 

DLD 

FYX 

0236 

00340 

0 

16 

00614 

BPY 

DVBX 

0237 

00341 

0 

04 

006 70 

DST 

DVIY 

0239 

00342 

0 

02 

00456 

DLD 

FYY 

023° 

00 34 3 

0 

16 

00616 

BPY 

DV BY 

0240 

00 344 

0 

06 

00670 

DAD 

DVIY 

0241 

00345 

0 

04 

00670 

DST 

DVIY 

0242 

00346 

0 

02 

00460 

DLD 

FYZ 

0243 

00347 

0 

16 

00620 

. BPY 

DVBZ 

0244 

00350 

0 

06 

00670 

DAD 

DVIY 

0245 

00351 

0 

41 1 

76 

LLS 

2 

0246 

00352 

0 

04 

00670 

DST 

DVIY 

0247 

00353 

0 

02 

00462 

DLD 

FZX 

0249 

00354 

0 

16 

00614 

BPY 

DVBX 

0249 

00355 

0 

04 

00672 

DST 

DVIZ 

0250 

00356 

0 

02 

00464 

DLD 

FZY 

0251 

00357 

0 

16 

00616 

BPY 

DVBY 

0252 

00360 

0 

06 

00672 

DAD 

DVTZ 

0253 

00361 

0 

04 

00672 

DST 

DVIZ 

0254 

00362 

0 

02 

00466 

DLD 

FZZ 

0255 

00363 

0 

16 

00620 

BPY 

DVBZ 

0256 

00364 

0 

06 

00672 

DAD 

DVIZ 

0257 

00365 

0411 

76 

LLS 

2 

0259 

00366 

0 

04 

00672 

DST 

DVIZ 

0259 

00367 

0 

02 

0061-4 

DLD 

DVBX 

0260 

00370 

0 

16 

00 4 47 

BPY 

FXX+1 

0261 

00371 

0 

04 

00444 

DST 

T1 

0262 

00372 

0 

02 

00616 

DLD 

DVBY 

0263 

00373 

0 

16 

00451 

BPY 

FXY*-1 

0264 

00374 

0 

06 

00444 

DAD 

T1 

0265 

00375 

0 

04 

00444 

DST 

T1 

0266 

00 376 

0 

02 

00620 

DLD 

DVBZ 

0267 

00377 

0 

16 

00453 

BPY 

FXZ*- 1 

0268 

00400 

0 

06 

00444 

DAD 

T 1 

0269 

00401 

0 

06 

00512 

DAD 

SORD 

0270 

00402 

0 

401 

63 

LRS 

13 

0271 

00403 

0 

06 

00666 

DAD 

DVIX 

0272 

00404 

0 

04 

00666 

DST 

DVIX 

0273 

00405 

0 

02 

00614 

DLD 

DVBX 

0274 

00406 

0 

16 

00455 

BPY 

FYX+1 

0275 

00407 

0 

04 

00444 

DST 

T1 

0276 

00410 

0 

02 

00616 

DLD 

DVBY 

0277 

0041 1 

0 

16 

00457 

BPY 

FYY*- 1 

0278 

00412 

0 

06 

00444 

DAD 

T1 

0279 

00413 

0 

04 

00444 

DST 

T1 

0280 

00414 

0 

02 

00620 

DLD 

DVBZ 

0281 

00415 

0 

16 

00461 

BPY 

FYZ+- 1 

0282 

00416 

0 

06 

00444 

DAD 

T1 

0283 

00417 

0 

06 

00512 

DAD 

SQRD 

0284 

00420 

0 

401 

63 

LBS 

13 

0285 

0042 1 

0 

06 

00670 

DAD 

DVIY 
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MTCROCOMP TELECOMMUNICATED DATA 
DDP-5 1 ft ASSEMBLY LISTING 


0286 

00422 

0 04 00670 


DST 

DVIY 

^287 

00423 

0 02 00614 


DLD 

DVBX 

02«8 

00424 

0 16 00463 


MPY 

FZX+ 1 

0 28 9 

00425 

0 04 00444 


OST 

T 1 

0290 

00426 

0 02 00616 


DID 

DVBY 

0291 

00427 

0 16 00465 


MPY 

FZY* 1 

0292 

00430 

0 06 00444 


DAD 

T1 

02 9 9 

0043 1 

D A4 00444 


DST 

T 1 

0294 

00432 

0 02 00620 


DLD 

DVBZ 

0295 

00433 

0 16 00467 


MPY 

FZZ+ 1 

0 29 6 

rt 0 4 34 

0 06 00444 


DAD 

T1 

0 297 

00435 

0 06 O0512 


DAD 

SOP D 

0298 

00436 

0401 63 


T.RS 

13 

0290 

00437 

0 06 00672 


DAD 

DVIZ 

0 900 

00440 

0 04 00672 


DST 

DVIZ 

030 1 

0044 1 

000005 


SGL 


0 302 

00442 

-0 01 00000 


JKP* 

VELA 

0 303 

00444 

000000 

T 1 

DBP 

0 


00445 

000000 




0304 

00446 

000000 

FXX 

DBP 

0 


00447 

000OO0 




0305 

DO 450 

000000 

FXY 

DBP 

0 


0045 1 

000000 




0305 

00452 

000000 

FXZ 

DBP 

0 


00453 

O00O00 




0307 

00454 

000000 

FYX 

DBP 

0 


00U55 

000000 




0 308 

00456 

000000 

FYY 

DRP 

0 


00457 

0000 00 




0300 

00460 

000000 

FY7 

DBP 

0 


00461 

000OO0 




0 310 

00462 

000OO0 

FZX 

DBP 

0 


00463 

000000 




0311 

0 0 464 

000000 

FZY 

DBP 

0 


00465 

000000 




0 312 

00466 

000000 

FZ7 

DPP 

0 


00467 

000000 




03 1 3 

00470 

OOQOOO 

PXSQ 

DBP 

0 


00471 

000000 




0314 

00472 

000000 

PYSQ 

DBP 

0 


00473 

00OD00 




0315 

00474 

000000 

HZSQ 

DBP 

0 


00475 

OOOODO 




0316 

00476 

OOOOOO 

LRX 

DBP 

0 


00477 

OOOOOQ 




0317 

005O0 

000000 

LPY 

DBP 

0 


00501 

000000 




0318 

0 0 502 

cooooo 

LRZ 

DBP 

0 


00503 

000000 




0319 

0 OSO 4 

000000 

RXRY 

DBP 

0 


00505 

OOQOOO 




0320 

00506 

000000 

PXPZ 

DBP 

0 


00507 

000000 




0321 

00510 

OCOOOO 

RYRZ 

DBP 

0 


00511 

nooono 




0322 

00512 

000000 

SOP D 

OCT 

0, 10000 


00513 

0 10000 
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MICROCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 


0323 

00514 

00515 

000000 

020000 

C PRD 

OCT 

0,20000 

0 324 

00516 

00517 

0203O0 

000000 

ONQT 

OCT 

20000,0 

0325 


000460 

LI 

EQU 

•460 

0326 


000461 

L2 

EQU 

L 1 + 1 

0327 


000464 

R XI 

EQU 

LI +4 

03 28 


000465 

RX2 

EQU 

L 1 +5 

0323 


000470 

RY1 

EQU 

LI +8 

0330 


000471 

RY2. 

EQU. 

L1 + 9 

0331 


000474 

R21 

EQO 

L1 + 12 

0332 


000475 

RZ2 

EQU 

L 1 + 1 3 

0333 


000614 

DVBX 

EQU 

•614 

0334 


000616 

DVBY 

EQU 

DVBX+2 

0335 


000620 

DVBZ 

EQU 

DVBX+4 

0336 


000666 

DVTX 

EQU 

•666 

0 33 7 


000670 

DVIY 

EQU 

DVIX+2 

0338 

0333 


000672 

DVIZ 

EQU 

END 

DVIX+4 
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PROGRAM NAME: 

SOURCE: V ACU 
BINARY: BVACU 

ENTRY POINTS (location): VACU 005506) 
GENERAL DESCRIPTION: 


This subroutine, when called, accumulates delta velocity in the inertial 
frame (DVIX, DVIY and DVIZ calculated by the velocity algorithm, program 
source name VESP subroutine entry point VELA). The three accumulators 
(XAV1-XAV3, YAV1-YAV3 and Z AVI -ZAV3) are triple precision accumula- 
tors and a brief examination of this subroutine will show that it performs 
the following three tasks: 


XAV = XAV + 
YAV = YAV + 
ZAV = ZAV + 


DVIX 
2 15 

DVIY 

2 15 

DVIZ 

„15 
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MICROCOMP TELECOMMUNICATED DATA 
DDP-516 ASSEMBLY LISTING 


0001 




BEL 


0002 




SUBR 

VACU 

0003 

00000 

0 000000 

VACtJ 

DAC 

** 

0004 

00001 

000007 


DBL 


0005 

00002 

0 02 00666 


DLD 

DVIX 

0006 

00003 

140040 


CRA 


0007 

00004 

0 06 00446 


DAD 

XAV3 

0008 

00005 

0 04 00446 


DST. 

X AV3 

0004 

00006 

000201 


IAB 


0010 

00007 

140040 


CRA 


0011 

00010 

000201 


IAB 


0012 

00011 

0 06 00666 


DAD 

DVIX 

0013 

00012 

0401 61 


LRS 

15 

0014 

00013 

0 06 00444 


DAD 

XA VI 

001 5 

00014 

0 04 00444 


DST 

XA VI 

0016 

000 15 

0 02 00670 


DLD 

DVIY 

0017 

00016 

140040 


CRA 


0018 

00017 

0 06 00452 


DAD 

YAV3 

0019 

00020 

0 04 00452 


DST 

YAV3 

0020 

000 21 

000201 


IAB 


0021 

00022 

140040 


CRA 


0022 

00023 

000201 


IAB 


0023 

00024 

0 06 00670 


DAD 

DVIY 

0024 

00025 

0401 61 


LRS 

15 

0025 

00026 

0 06 00450 


DAD 

YAV1 

0026 

00027 

0 04 00450 


DST 

YA V 1 

0027 

00030 

0 02 00672 


DLD 

DVIZ 

0028 

00031 

140040 


CRA 


0029 

00032 

0 06 00456 


DAD 

ZAV3 

0030 

00033 

0 04 00456 


DST 

ZAV3 

0031 

00034 

000201 


IAB 


0032 

00035 

140040 


CRA 


C 033 

00036 

000201 


IAB 


0034 

00037 

0 06 00672 


DAD 

DVIZ 

0035 

00040 

0401 61 


LRS 

15 

0 036 

0004 1 

0 06 00454 


DAD 

ZAV1 

0037 

00042 

0 04 00454 


DST 

ZAV1 

0038 

0004 3 

000005 • 


SGL 


0039 

00044 

140040 


CRA 


0040 

00045 

0 04 00446 


ST A 

XAV3 

0041 

00046 

0 04 0C452 


STA 

YAV3 

0042 

00047 

0 04 00456 


STA 

ZAV3 

0043 

00050 

-0 01 00000 


JMP* 

VACU 

0044 


000666 

DVIX 

EOU 

' 666 

0045 


000670 

DVIY 

EQU 

DVIX+2 

0046 


000672 

DVIZ 

EQU 

DVIX *4 

0047 


000444 

XA VI 

EQU 

•444 

0048 


000446 

X AV3 

EQU 

XAV1+2 

0049 


000450 

YA VI 

EQU 

XAV1+4 

0050 


000452 

YAV3 

EQU 

XA VI ♦6 

0051 


000454 

ZAV1 

EQU 

XAV1+8 

0052 


000456 

ZAV3 

EQU 

XAVU10 

0053 




END 
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PROGRAM NAME 
SOURCE: ERC6 
BINARY: BERC6 

ENTRY POINTS (location): ERCO ('2726) 
GENERAL DESCRIPTION: 


This subroutine will do the equivalent of torquing a gyro in a gimbal 
IMU. It essentially compensates the gyros for a drift in the inertial frame 
and is used to take out WIE, earth rate, thus the acronym ERCO or earth 
rate compensation. It does this by transforming the negative of the drift 
in the inertial frame into the body frame and adding it to the gyros as an 
equivalent NBD. It makes use of the cosine matrix (C* developed from 

.D 

the quaternion by the subroutine VELA which transforms theAVg intoAVj. 
The gyro drift in the body frame due to earth rate is: 


U IEXB 

U IEYB 

U IEZB 



U IEXI 

U IEYI 

U IEZ1 


I 

C B is created by VELA and its elements are FXX, FXY, FXZ, FYX, FYY, 
FYZ, FZX, FZY and FZZ. This subroutine gains access to the constants 
by using the pseudo-op XAC or external address constant. For example, 
the pseudo-op XFXX XAC FXX puts the address of FXX in the location 
called XFXX. Of course, the transpose of the above matrix (C ) is FXX, 

JD 

FYX, FZX, FXY, FYY, FZY, FXZ, FYZ and FZZ. 


The X, Y and Z inertial rates to be compensated for are stored in 
octal locations 250, 251 and 252 respectively. These are specially scaled 
constants that are the negative of the earth rate sensed on these inertial 
axes. If, for example, the X, Y and Z inertial axes were north, east and 
down at this latitude (42°, 21 ', 51 "), locations 250, 251 and 252 would contain 
the octal constants -44121, 0 and 40765. The A0^, A0^ 

compensated are contained in octal locations 414, 416 and 420. The 
subroutine itself is so straight-forward that no flow chart is necessary. 
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MICROCOMP TELECOM HONIC AT ED DATA 
DDP-516 ASSEMBLY LISTING 


P001 REL 


0002 
0 003 

00000 

0 

oooooo 

ERCO 

SDBR 

DAC 

ERCO 

** 

0004 

0005 

00001 

00002 

000007 
-0 02 00074 


DBL 

DLD* 

XFXX 

0006 

00003 

0 

06 

00072 


DAD 

HRRD 

0007 

00004 

0 

16 

00250 


MPY 

•250 

OC 08 

00005 

0 

04 

00064 


D ST 

XERC 

oooo 

00006 

-0 

02 

00077 


DLD* 

XPYX 

0010 

00007 

0 

06 

00072 


DAD 

HRRD 

0011 

00010 

0 

16 

00251 


MPY 

•251 

0012 

00011 

0 

06 

00064 


DAD 

XERC 

0013 

00012 

0 

04 

00064 


DST 

XERC 

0014 

00013 

-0 

02 

00102 


DLD* 

XFZX 

0 0 1'5 

00014 

' 0 

06 

00072 


DAD 

HRRD 

0016 

00015 

0 

16 

00252 


MPY 

•252 

0017 

00016 

0 

06 

00064 


DAD 

XERC 

0018 

00017 

0401 

64 


LRS 

12 

0 019 

000.20 

0 

06 

00414 


DAD 

•414 

0020 

00021 

0 

04 

00414 


DST 

•414 

0021 

00022 

-0 

02 

00075 


DLD* 

XFXY 

0022 

00023 

0 

06 

00072 


DAD 

MRRD 

0023 

000 24 

0 

16 

00250 


MPY 

•250 

0024 

00025 

0 

04 

00066 


DST 

YERC 

0025 

00026 

-0 

02 

00100 


DLD* 

XFYY 

0026 

00027 

0 

06 

00072 


DAD 

HRRD 

0027 

00030 

0 

16 

00251 


MPY 

•251 

0028 

00031 

0 

06 

00066 


DAD 

YERC 

0029 

00032 

0 

04 

00066 


DST 

YERC 

0030 

00033 

-0 

02 

00103 


DLD* 

XFZY 

0031 

00034 

0 

06 

00072 


DAD 

MRRD 

0032 

00035 

0 

16 

00252 


MPY 

•252 

0033 

00036 

0 

06 

00066 


DAD 

YERC 

0034 

00037 

0401 

64 


LRS 

12 

0035 

00040 

0 

06 

00416 


DAD 

•416 

0036 

00041 

0 

04 

00416 


DST 

•416 

0037 

00042 

-0 

02 

80076 


DLD* 

XFXZ 

0038 

00043 

0 

06 

00072 


DAD 

HRRD 

0039 

00044 

0 

16 

00250 


MPY 

•250 

0040 

00045 

0 

04 

00070 


DST 

ZERC 

0041 

00046 

-0 

02 

00101 


DLD* 

XFYZ 

0042 

00047 

0 

06 

00072 


DAD 

HRRD 

0 043 

00050 

0 

16 

00251 


MPY 

•251 

0^44 

00051 

0 

06 

00070 


DAD 

ZERC 

0045 

00052 

0 

04 

00070 


DST 

ZERC 

0046 

00053 

-0 

02 

00104 


DLD* 

XFZZ 

0047 

00054 

0 

06 

00072 


DAD 

HRRD 

0048 

00055 

0 

16 

00252 


MPY 

•252 

0049 

00056 

0 

06 

00070 


DAD 

ZERC 

0050 

00057 

0401 

64 


LRS 

12 

0051 

00060 

0 

06 

00420 


DAD 

•4 20 

0052 

00061 

0 

04 

00420 


DST 

•420 

0053 

0054 

00062 

00063 

000005 
-0 01 00000 


SGL 

JHP* 

ERCO 

0055 

00064 

000000 

XERC 

DBP 

0 

0056 

00065 

00066 

000000 

oooooo 

YERC 

DBP 

0 
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MTCPOCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMRLY 

LISTING 



00067 

O000O0 




''O 57 

00070 

oooooo 

ZFRC 

DBP 

0 


00071 

OOOOOO 




7055 

00072 

O00OOO 

MRP D 

OCT 

0, 40000 


OO073 

040000 




OO^P 

O0074 

0 OOOOOO 

XFXX 

X AC 

FXX 

0060 

00075 

0 OOOOOO 

XFXY 

X AC 

FXY 

D 0 6 1 

00076 

0 0O00C0 

X FXZ 

X AC 

FXZ 

0762 

0 0077 

0 OOOOOO 

XFYX 

X AC 

FYX 

0063 

ooioo 

o oooooo 

XFYY 

X AC 

FYY 

0^6 4 

00101 

0 oooooo 

XFYZ 

X AC 

FYZ 

006 5 

00 102 

0 OOOOOO 

XFZX 

X AC 

FZX 

0066 

00103 

0 oooooo 

XFZY 

XAC 

FZY 

0067 

00 104 

o oooooo 

XFZZ 

X AC 

FZZ 

Of 60 




END 
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PROGRAM NAME 

SOURCE: AA6S 

BINARY: BAA6S 

RELATED MEMOS: T-493 

ENTRY POINTS (location): ATTA C05060) 

GENERAL DESCRIPTION: 

This subroutine when called will perform a third order attitude 
algorithm to update the quaternion of rotation. The equation representing 
the algorithm can be expressed as: 

P X ' = XSq, x + R Px + S( Py a z " P Z Q y ) 

p y ' = XS *y + R Py + S( P Z a X ' P X Q 'z ) 

P z ' = XSa z + R P Z + S( Pz°y " Py Q, x ) 

X' = -S(p • a) + RX 

where 



M = a • a 


R = (1 -jM) 
S = (1 --jr-M) 


expanding this equation, if we define A = A0 A 0 + A0 Afl + A0 A0 

xxyyzz 


_ /p Ad - p„ Ad 

, _ W1 A \A0X n A\ , n A)/ r y z z y 
P x x(1 ~ ~24 2 ^ (1 R'P-sr + (1 ITl 


24 


therefore: 


\Ad x XAA e x Ap x ^ p y Ae z - P 2 Afl y A ( Py Ag z - Pg^) 


p x' = p x + 2 " 48 8 ' 2 ' 48 


to determine p^', replace x, y, z subscripts by y, z, x in the equation for 

p To determine p replace x, y, z subscripts by z, x, y in the equation 
X z 
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for p Then, 
x 


therefore: 


X 1 = -S(p ■ 3) + RX 


X 1 — X g- X - 


(p &6 + p A0 + p A0 ) a 

- P -2L.. x I Z 2 L . l z -^-+A ( A Q + p A0 + p A 0) 
2 48 H x x H y y K z z 


In the present DDP516 implementation the actual numbers in the computer 
are scaled as follows: 

DX = 2 6 A0 orAfl = DX 2~ 6 

X X 

DY = 2 6 A0 y orA0 y = DY 2 -6 

DZ = 2 6 A0 or A 0 = DZ2' 6 

z z 


RX = Yorp x = 2RX 


RY = -f-orpy = 2RY 


RZ = y-or p z = 2RZ 


L = y ot X = 2L 

D 2 = 2 12 A or A = D 2 2" 12 = (DX 2 + DY 2 + DZ 2 ) 2’ 12 
now substituting this scaling into the equation given above we find: 


2RX' = 2RX + 


L DX L D 2 DX D 2 RX 


RY DZ - RZ DY D (RY DZ - RZ DY) 


if we define 


ARX = RX' - RX 


then. 
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ARX 


_ L DX L D 2 DX D 2 RX RY DZ - RZ DY D 2 (RY DZ - DZ DY) 


3 2 


22 


,15 


3 2 


22 


also. 


2L' = 2L - 


D L RX DX + RY DY + RZ DZ 


,14 


D (RX DX + RY DY + RZ DZ) 


3 2 


21 


and if 


AL = L' - L, 


. T _ D 2 L RX DX + RY DY + RZ DZ , D 2 (RX DX + RY DY + RZ DZ) 
2 15 ' 2 7 3 2 22 


The equations for ARY and ARZ are obtained in a similar manner. 


A 16 bit word in the DDP516 is made up of a sign bit and 15 bits of 
fraction. For example, 0110 000 000 000 000 represents +.75 decimal. 
Each quaternion component is made up of three of these numbers. For 
example, L will be represented by 


LI 


+ 


L2 L3 
2 15 2 30 ' 


which is equivalent to a 45 bit signed fraction where the sign bits of L2 

and L3 are ignored. In core LI is in location ’460, L2 in '461 and L3 + 
* 

'40000 is in '463. Location '462 is normally zero except when '463 overflows 
into '462 which is then added to '461. RX, RY and RZ follow L in core in 
locations '464, '470 and '474 respectively. A unit quaternion in core 

(X= fi x = °* = °* ^ = 0 


or 

L = 1/2, RX = 0, RY = 0, RZ = 0) 
would look like the following (in octal): 


*Since only Ll and L2 are used in the velocity algorithm, the '40000 (1/2) 
added to L3 is for rounding. 
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loc. 

'460 

'461 

'462 

'463 

L 

040000 

000000 

000000 

040000 


LI 

L2 


L3+'40000 

loc. 

'464 

'465 

'466 

'467 

RX 

000000 

000000 

000000 

040000 


RX1 

RX2 


RX3+'40000 

loc. 

'470 

'471 

'472 

'473 

RY 

000000 

000000 

000000 

040000 


RY1 

RY2 


RY3+'40000 

loc. 

'474 

'475 

'476 

'477 

RZ 

000000 

000000 

000000 

040000 


RZ1 

RZ2 


RZ3+'40000 


2 

DX, DY and DZ are single precision fractions. However, D will be 30 
bits and will be represented by 


° 2 ‘ * 4 - 


With these considerations in mind the quaternion update equations can be 
expanded as: 

. _ LI DX . L2 DX . L3 DX 
ARX = = OO + Olj 

2 7 2 22 

DX P 2 1 LI DX D 2 1 L2 DX P 2 1 L3 
3X2 22 3X2 37 3X2 52 

DX D 2 2 LI DX D 2 2 L2 DX D 2 2 L3 
3X2 37 3X2 52 3X2 67 


D 2 1 RX1 

D 2 1 RX2 

D 2 1 RX3 

2 15 

2 30 

2 45 

D 2 2 RX1 

D 2 2 RX2 

D 2 2 RX3 

2 30 

2 45 

2 60 

RY1 DZ , 

RY2 DZ . 
2 22 

RY3 DZ 

2 7 

2 37 

RZ1 DY 

RZ2 DY 

RZ3 DY 

2 7 

2 22 

2 37 
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P 2 1 RY1 DZ P 2 1 RY 2 DZ P 2 1 RY3 DZ 


3X2 22 

3X2 37 

3X2 52 

D 2 1 RZ1 DY 

. D 2 1 RZ2 DY 

. D 2 1 RZ3 DY 

„ „22 

.37 

„ „52 

3X2 

3X2 

3X2 

D 2 2 RY1 DZ 

D 2 2 RY2 DZ 

D 2 2 RY3 DZ 

3X2 37 

3X2 52 

3X2 67 

D 2 2 RZ1 DY 

. D 2 2 RZ2 DY 

D 2 2 RZ3 DY 


3X2 37 3X2 52 3X2 67 


D 2 1 LI D 2 1 L2 D 2 1 L3 D 2 2 Ll D 2 2 L2 D 2 2 L3 
2 15 ' 2 30 " 2 45 ' 2 30 ' 2 45 ‘ 2 60 

RX1 DX RX2 DX RX3 DX RY1 DY RY2 DY RY3 DY 
. ^ ^ - 222 - 2 37 

RZ1 DZ RZ2 DZ RZ3 DZ 
“ 2 7 ' 2 22 " 2 37 

+ P 2 1 RX1 DX , P 2 1 RX2 DX , P 2 1 RX3 DX 
3X2 22 3X2 37 3X2 52 

P 2 1 RY1 DY P 2 1 RY2 DY P 2 1 RY3 DY 
3X2 22 3X2 37 3X2 52 

P 2 1 RZ1 DZ . P 2 1 RZ2 DZ P 2 1 RZ3 DZ 
3X2 22 3X2 37 3X2 52 

D 2 2 RX1 DX , D 2 2 RX2 DX , D 2 2 RX3 DX 
3X2 37 3X2 52 3X2 67 

D 2 2 RY1 DY D 2 2 RY2 DY D 2 2 RY3 DY 
3X2 37 3X2 52 3X2 67 

x D 2 2 RZ1 DZ D 2 2 RZ2 DZ D 2 2 RZ3 DZ 

3X2 37 3X2 52 3X2 67 


With ARY and ARZ defined in a similar manner. . 
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The algorithm that is written considers L, RX, RY and RZ to have 

only 37 bits of significance. Therefore, all terms in the final equations 

37 

with denominators greater than 2 can be ignored. This simplifies the 
final equations to be programmed to: 


LI DX t L2 DX _ DX P 2 1 LI 


2 7 ' 

2 22 

3X2 22 

D 2 1 RX1 

D 2 1 RX2 

D 2 2 RX1 

2 15 

2 3° 

2 30 

RY1 DZ 

. RY2 DZ 
„22 

RZ1 DY RZ2 DY 

_7 

n 7 „22 

2 

2 

2 2 

D 2 1 RY1 

DZ , D 2 1 RZ1 DY 


3X2 22 3X2 22 

and. 


P 2 1 LI P 2 1 L2 D 2 2 LI 
" ' 2 15 ' 2 30 " 2 30 

RX1 DX RX2 DX RY 1 DY RY2 DY RZ1 DZ RZ2 DZ 
2 7 ' 2 22 " 2 7 ' 2 22 ' 2 7 ' 2 22 

, P 2 1 RX1 DX . P 2 1 RY1 DY ■ D 2 1 RZ1 DZ 

3X2 22 3X2 22 3X2 22 


The final simplification is to replace 


(-2D i )/ 3 

with a variable called D3 and to calculate 2 7 ARX, 2 7 ARY, 2 7 ARZ and 2 7 
AL before deriving ARX, ARY, ARZ and AL. The program equations then 


are: 


2 7 ARX 


T , . L2 DX , DX D3 LI 

Li DX + — r ■ 


.15 


.16 


D 2 1 RX1 D 2 1 RX2 D 2 2 RX1 


,23 


+ RY1 DZ + RY2 D - - RZ 1 DY - RZ2 DY 


,15 


,15 


D3 RY1 DZ D3 RZ1 DY 


.16 


.16 
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and, 

7 

2 AL 


P 2 1 LI P 2 1 L2 D 2 2 LI 
2 8 " 2 23 ' 2 23 


BX1 DX - . Ryl QY _ RY2_DY _ ^ D2 . RZ2 D Z . 

2 2 2 


D3 RX1 DX D3 RY1 DY D3 RZ1 DZ 
2 16 ' 2 16 ' 2 16 
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JUJTOPLOH CH APT SET - DRAPER OEHBIP'S PLOPCHAPT - ATTA 


/ XI 


f 

» 

I Cl 

1 D**2 = DX**2 * I 

1 f*Y**2 ♦ D2**2 I 


I 

I 

X 2 I 


I r>3 * {-2 I 

I (D**2)1)/3 | 


XJ 

1 

1 

1 3 

i si = 
1 PT2- 

-PZ2 DY ♦ ( 

DZ ♦ 12 DX 1 

XU 

1 

1 

f 04 

| S 2 = (D**2J 1 BX 1 | 

| ♦ ( (D**2) 1 RX2 ♦ 1 

| ( D**2) 2 1 

| RX 1) /2**15 | 

X5 

! 

1 os 

| DLB X 
1 BY! 

= -BZ1 DY ♦ i 
D7 ♦ LI DX ( 


1 

I 

X6 I 06 


T (A,B>*= SI ♦ (0 3 ] 

I DLPX)/2 I 


I 

t 

Xf | 


I (A , P) = .1 , 

| (A,*>)/2**7 - S2 1 - 

t— J 

I 

I 

V B | .CP 

1 DL^T = (ft , B) / 2 **fl I 

( ♦ DL»X I 


I 

I 

x? i :■<> 

I THE I AST 7 STE °S I 
| rA T .C!'T. ATFO OT - X = I 
| 2**7 DELTA PX, I 

| ’’EPFA" THF- WTT" I 
| CHANGFS IV THE I 
I V A STAPLES TO GET I 
| '>l!>Y > 0iEZ ANO DLL | 


. I 

I 

xir i i f 

\ L = L ♦ I 

| (T!L)/2**7 | 


t 

I 

XII I 31 

| PX = PX * I 

I (DT.PX)/2**7 | 

I 

I 

X 1 2 | 12 

r PY » BY ♦ ' I 

I (DL BY) /2**7 | 

1 J 

I 

I 

X 1 3 I 13 


| P7 = RZ ♦ I 

| (DI.F Z) /2**7 | 

1 T FLOWCHART 

I 

l m 

* EXIT * 


RETURN 

^ The Double Precision Accumulator 


PAGE 01 

of 01 


ATTA 


181 



MICROCOBP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


0001 





REL 


0002 





SUBR 

ATTA 

0003 

00000 

0 

ooooco 

ATTA DAC 

** 

noo« 

00001 

0 

02 

00414 

LD A 

DX 

0005 

00002 

000007 

DBL 


0006 

00003 

0 

16 

00414 

MPY 

DX 

0007 

00004 

0 

04 

00410 

DST 

D1 

9C0R 

00005 

0 

02 

00416 

DLD 

DY 

0009 

00006 

0 

16 

00416 

MPY 

DY 

0010 

00007 

0 

06 

00410 

DAD 

D1 

0011 

000 10 

0 

04 

00410 

DST 

D1 

0012 

00011 

0 

02 

00420 

DLD 

DZ 

0013 

00012 

0 

16 

00420 

MPY 

DZ 

0019 

00013 

0 

06 

00410 

DAD 

D1 

0^15 

00014 

0 

04 

00410 

DST 

D1 

0 016 

00015 

0 

16 

00424 

HPl 

=•125253 

0017 

00016 

0 

06 

00420 

DAD 

TRND 

0018 

00017 

0 

04 

00412 

DST 

D3 

0019 

00020 

0 

02 

00416 

DLD 

DY 

0020 

00021 

0 

16 

00475 

MPY 

RZ2 

0021 

00^22 

0 

04 

00414 

DST 

SI 

0022 

00023 

0 

02 

00420 

DLD 

DZ 

0023 

00024 

0 

16 

00471 

MPY 

RY 2 

0024 

00025 

0 

07 

00414 

DSB 

SI 

0025 

00026 

0 

04 

004 14 

DST 

SI 

0026 

00027 

0 

02 

00414 

DLD 

DX 

0027 

00030 

0 

16 

00461 

MPY 

L2 

00 28 

00031 

0 

06 

00414 

DAD 

SI 

0029 

00032 

0 

04 

00414 

DST 

SI 

0030 

00033 

9 

02 

00464 

DLD 

RX1 

0031 

00034 

0 

16 

00411 

MPY 

D2 

0032 

00035 

0 

04 

00416 

DST 

S2 

0033 

00036 

0 

02 

00410 

DLD 

D1 

0034 

00037 

0 

16 

004 65 

MPY 

RX2 

0035 

00040 

0 

06 

00416 

DAD 

S2 

0 03 6 

00"41 

0401 

61 

LRS 

15 

0037 

00042 

0 

04 

00416 

DST 

S2 

0038 

00043 

0 

02 

00410 

DLD 

D1 

0039 

00044 

0 

16 

00464 

MPY 

RX 1 

0040 

00045 

0 

06 

00416 

DAD 

S2 

0041 

00046 

0 

04 

004 16 

DST 

S2 

0042 

00047 

0 

02 

00416 

DLD 

DY 

0043 

00050 

0 

16 

00474 

MPY 

RZ 1 

0044 

00051 

0 

04 

00402 

DST 

DLRX 

0045 

00052 

0 

02 

00420 

DLD 

DZ 

0046 

00053 

0 

16 

00470 

MPY 

RY1 

0047 

00054 

0 

07 

00402 

DSB 

DLRX 

0048 

00055 

0 

04 

00402 

DST 

DLRX 

0049 

00056 

0 

02 

00414 

DLD 

DX 

0050 

00057 

0 

16 

00460 

MPY 

LI 

0051 

00060 

0 

06 

00402 

DAD 

DLRX 

0052 

00061 

0 

04 

00402 

DST 

DLRX 

0053 

00062 

0 

16 

00412 

MPY 

D3 

0054 

00063 

0401 

77 

LRS 

1 

0055 

00064 

0 

06 

00414 

DAD 

SI 

0056 

00065 

0 401 

71 

LRS 

7 ' 

0057 

00066 

0 

07 

004 16 

DSB 

S2 
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''"53 00067 
9059 00070 

0060 0007 1 

0061 00072 

0062 00079 
006.9 00074 
0064 00075 
0066 00076 

0066 00077 

00 67 OO10O 
0060 00101 
0064 00102 
9470 oq 103 

0071 00 1 04 

0072 00105 
C 073 00106 

0074 00107 

0075 00110 
00T6 00111 

0077 00112 

0078 00113 
0070 00114 
0080 00115 

OORi omi6 

0082 00117 

0083 00120 

0084 00121 
0086 00122 
0086 00123 
0187 00124 

0088 00125 

0089 00 1 26 
OOQO 00127 
0001 00130 

0092 00131 

0093 00132 

0094 O0133 
0096 00134 
0096 00135 
oog7 00136 

0098 00137 

0099 00140 

0100 00141 

0101 00 1 4 2 
0 102 00 14 3 

0103 00144 

0104 00145 
9105 00146 

0106 00147 

0107 00150 

0108 00151 

0109 00152 

0110 00153 

0111 00154 

0112 00155 
9113 00156 
0114 00157 


0 

96 

00422 

0401 

70 

0 

06 

00402 

0 

04 

00402 

0 

02 

00 4 20 

0 

16 

00465 

0 

04 

00414 

0 

02 

00414 

0 

16 

00475 

0 

07 

00414 

0 

04 

00414 

0 

02 

09416 

0 

16 

00 461 

0 

06 

004 14 

0 

0 4 

00414 

0 

02 

00 4 70 

0 

16 

0041 1 

0 

94 

004 1 6 

0 

02 

00410 

0 

16 

00471 

0 

06 

00416 

0401 

61 

0 

04 

09416 

0 

0 2 

00410 

0 

16 

00470 

0 

06 

00416 

0 

04 

00416 

0 

02 

00420 

0 

16 

00464 

0 

0 4 

00404 

0 

02 

00414 

0 

16 

09474 

0 

07 

30 404 

0 

04 

00404 

0 

02 

00416 

0 

16 

00460 

0 

06 

00404 

0 

04 

90404 

0 

16 

00412 

949 1 

77 

0 

06 

004 14 

0401 

71 

n 

07 

00416 

0 

06 

00422 

0401 

70 

0 

06 

00404 

0 

04 

00404 

0 

02 

00414 

0 

16 

00471 

0 

04 

00414 

0 

02 

00416 

0 

16 

00465 

0 

07 

004 14 

0 

04 

00414 

0 

02 

00420 

0 

16 

00461 

n 

06 

0 C 4 1 4 


SEND 
LBS 8 
PAD DLRX 
DST DLRX 
OLD D2 
MPY PX 2 

DST SI 
OLD DX 
MPY RZ2 
DSB Si 
DST SI 
OLD DY 
MPY L 2 

PAD SI 
DST SI 
DLD R Y 1 

PIPY D2 
DST S2 
PL D D 1 
MPY RY2 
DAD S 2 

LRS 15 
DST S 2 

PLD PI 
MPY RY 1 
DAD S2 
DST S2 
DLD DZ 
MPY RX 1 
DST DLRY 
DL D DX 
MPY PZ 1 
DSR DLRY 
DST DLRY 
DLD DY 
MPY LI 
DAD DLRY 
DST DLRY 
MPY D3 
LRS 1 
DAD SI 
L PS 7 
DSB S2 
DAD SR ND 
LFS 8 
DAD DLRY 
DST DLRY 
DID DX 
MPY R Y 2 

DST SI 
DLD . DY 
MPY RX2 
DSB SI 
DST SI 
DL D DZ 
MPY L2 
DAD SI 
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DAD 
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MICROCOMP TELECOMMUNICATED DATA 



DDP- 

516 

ASSEMBLY 

LISTING 


0115 

00160 

0 

04 

00414 

DST 

SI 

0116 

00161 

0 

02 

00474 

DID 

RZ 1 

0117 

00 162 

0 

16 

00411 

MPY 

D2 

Oil 8 

00163 

0 

04 

00416 

DST 

S2 

0119 

00164 

0 

02 

00410 

DLD 

D 1 

9 120 

00165 

0 

16 

00475 

MPY 

RZ2 

9121 

00166 

0 

06 

00416 

DAD 

S2 

0122 

00167 

0 401 

61 

LRS 

15 

0123 

00170 

0 

04 

00416 

DST 

S2 

0124 

00171 

0 

02 

00410 

DLD 

D1 

0125 

00172 

0 

16 

00 4 74 

MPY 

RZ 1 

0126 

00173 

0 

06 

00416 

DAD 

S2 

9127 

00174 

0 

0 4 

00416 

DST 

S2 

0128 

00175 

0 

02 

00414 

DLD 

DX 

0129 

00 176 

0 

16 

00470 

MPY 

RY 1 

0130 

00177 

0 

04 

00406 

DST 

DLRZ 

0131 

00200 

0 

02 

00416 

DLD 

DY 

013? 

00201 

0 

16 

00464 

MPY 

RX 1 

0133 

00202 

0 

07 

00406 

DSB 

DLRZ 

0134 

00203 

0 

04 

00406 

DST 

DLRZ 

0135 

00204 

0 

02 

00420 

DLD 

DZ 

0136 

00205 

0 

16 

00460 

MPY 

LI 

0137 

00206 

0 

06 

00406 

DAD 

DLRZ 

0138 

00207 

0 

04 

09406 

DST 

DLRZ 

9 139 

00210 

0 

16 

00412 

MPY 

D 3 

0 140 

00211 

0- 

401 

77 

LRS 

1 

0141 

00212 

0 

06 

00414 

DAD 

SI 

9142 

00213 

0401 

71 

LRS 

7 

0143 

00214 

0 

07 

00416 

DSB 

S2 

0144 

00215 

0 

06 

00422 

DAD 

SR ND 

0145 

00216 

0401 

70 

LRS 

8 

0146 

00217 

0 

06 

00406 

DAD 

DLRZ 

0147 

00 2 20 

0 

04 

00406 

DST 

DLRZ 

0148 

00221 

0 

02 

00414 

DLD 

DX 

0 149 

00222 

0 

16 

00465 

MPY 

RX 2 

0150 

00223 

0 

04 

00414 

DST 

SI 

0151 

00224 

0 

02 

00416 

DLD 

DY 

0152 

00225 

0 

16 

00471 

MPY 

RY2 

9153 

00226 

0 

06 

00414 

DAD 

SI 

0154 

00227 

0 

04 

00414 

DST 

SI 

0155 

00230 

0 

02 

00420 

DLD 

DZ 

0156 

00231 

0 

16 

00475 

MPY 

RZ2 

0 157 

00232 

0 

06 

00414 

DAD 

SI 

0158 

00233 

0 

04 

00414 

DST 

Si 

0159 

00234 

0 

02 

00460 

DLD 

LI 

0160 

00235 

0 

16 

00411 

MPY 

D2 

016 1 

00236 

0 

04 

00416 

DST 

S2 

0162 

00237 

0 

02 

00410 

DLD 

D1 

0163 

00240 

0 

16 

00461 

MPY 

L2 

0 164 

00241 

0 

06 

00416 

DAD 

S2 

0165 

00 24 2 

0401 

61 

LRS 

15 

0166 

00243 

0 

04 

00416 

DST 

S2 

0167 

00244 

0 

02 

00410 

DLD 

D 1 

0168 

00245 

0 

16 

00460 

MPY 

LI 

0169 

00246 

0 

06 

00416 

DAD 

S2 

0170 

00247 

0 

04 

00416 

DST 

S2 

0171 

00250 

0 

02 

00414 

DLD 

DX 


184 



MTCFOCOMP TELECOMMUNICATED DATA 
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0172 00251 

0173 00252 
0 17 4 0025.3 

0175 00254 

0176 00255 

0177 00256 

0178 00257 
0170 00260 
0180 00261 
0181 00262 

0182 00263 

0183 0 0264 

0184 00265 
0 185 0.0 2 66 

0186 00267 

0187 00270 

0188 00271 
0188 00272 

0180 00273 

0181 00274 

0182 00275 

0193 00276 

0194 00277 
n 1 9 5 O0 300 

9196 90301 

9197 00302 

9198 00303 
Oioq 9 0304 
0290 00305 
029 1 00 306 

0202 00307 

0203 00310 

0204 00311 

0205 00312 
9296 00313 

0207 00314 

0208 O0315 

0209 O0316 

0210 00.3 17 

0211 00320 

0212 00321 

0213 00322 

0214 00323 

0215 00324 

0216 00325 

0217 00326 

0218 00327 

0219 00330 

0220 00331 

0221 00332 

0222 00333 

0223 00334 

0224 90335 

0225 00336 

0226 00337 

0227 00340 

0228 00341 


0 16 00464 
0 04 00400 
0 02 00416 
0 16 00470 
0 06 00400 
0 04 004C0 
0 02 00420 
140407 
0 16 00474 
0 07 00400 
0 04 00400 
0 16 00412 
0401 77 
0 07 00414 
9401 71 
0 07 00416 
0 06 00422 
0401 70 
0 06 00400 
0 04 0040C 
140040 
0 00201 
0491 71 
140040 
0 06 00462 
0 04 00462 
000201 
140940 
0 06 OC 460 
0 04 00460 
0 02 00400 
0401 71 
0 06 00460 
0 04 90460 
0 02 00402 
140040 
000201 
0401 71 
140040 
0 06 00466 
0 04 00466 
000201 
140040 
0 06 00464 
0 04 00464 
0 02 00402 
0401 71 
0 06 00464 
0 04 00464 
0 02 00404 
140040 
000201 
0401 71 
140040 
0 06 00472 
0 04 00472 
000201 


MPY 

RX 1 

DST 

DLL 

DLD 

DY 

MPY 

R Y 1 

DA D 

DLL 

DST 

DLL 

DLD 

DZ 

TC A 


MPY 

RZ 1 

DSB 

DLL 

DST 

DLL 

MPY 

D3 

LBS 

1 

DSB 

SI 

LRS 

7 

DSB 

S2 

DAD 

SR ND 

LRS 

8 

DAD 

DLL 

DST 

DLL 

CRA 


TAB 


LRS 

7 

CRA 


DAD 

L3 

DST 

L3 

TAB 


CRA 


DAD 

LI 

DST 

LI 

DLD 

DLL 

LRS 

7 

DAD 

LI 

DST 

LI 

DLD 

DLRX 

CRA 


I A B 


LRS 

7 

CRA 


DAD 

RX3 

DST 

RX 3 

TAB 


CPA 


DAD 

PX 1 

DST 

RX 1 

DLD 

DLRX 

LRS 

7 - 

DAD 

RX 1 

DST 

RX 1 

DLD 

DLRY 

CPA 


TAB 


LRS 

7 

CRA 


DAD 

R Y 3 

DST 

RY3 

TAB 
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MICROCOMP TELECOMMUNICATED DATA 



DDP- 

516 ASSEMBLY 

LISTING 


022 q 

00342 

140040 


CRA 


0230 

00343 

0 06 00470 


DAD 

R Y 1 

0231 

OO 344 

0 04 00470 


DST 

RY 1 

0 232 

00345 

0 02 00404 


OLD 

DLPY 

0233 

00346 

0401 71 


LRS 

7 

0234 

00 3 47 

0 06 OC 470 


DAD 

RY 1 

0235 

00350 

0 04 00470 


DST 

RY1 

0236 

00351 

0 02 00406 


DID 

DLRZ 

0237 

00352 

140040 


CRA 


0 2 3 8 

00 35 3 

000201 


IAB 


0 2 30 

00354 

0401 71 


LRS 

7 

0240 

00355 

140040 


CRA 


0241 

00356 

0 06 00476 


DAD 

RZ3 

024 2 

00357 

0 04 00476 


DST 

RZ3 

0243 

00360 

000201 


IAB 


0244 

0036 1 

140040 


CRA 


0245 

00362 

0 06 00474 


DAD 

RZ 1 

0246 

00363 

0 04 00474 


DST 

RZ 1 

0247 

00364 

0 92 00406 


DLD 

DLRZ 

0248 

00365 

0401 71 


LRS 

7 

0249 

00 366 

9 06 00474 


DAD 

RZ 1 

0 250 

00367 

0 04 00474 


DST' 

RZ 1 

0251 

00370 

009005 


SGL 


0252 

00371 

140040 


CRA 


0253 

00372 

0 04 00462 


ST A 

L3 

0254 

0 0 373 

0 04 00466 


STA 

RX3 

0255 

0 03 74 

0 04 00472 


STA 

RY3 

0256 

00375 

0 04 00476 


STA 

RZ 3 

0257 

00376 

-0 01 00900 


JMP* 

ATT A 

0258 

00400 

900000 

DLL 

DBP 

0 


00401 

000900 




025° 

0 040 2 

000900 

DLRX 

DBP 

0 


0 0 40 3 

000000 




0260 

00404 

000000 

DLFY 

DBP 

0 


00405 

000900 




0261 

00406 

900000 

DLRZ 

DBP 

0 


00407 

000900 




0262 

004 10 

090000 

D 1 

OCT 

0 

0 26 3 

0041 1 

000000 

D2 

OCT 

0 

0264 

00412 

900000 

D3 

DBP 

0 


90413 

000900 




0265 

004 14 

000000 

SI 

DBP 

0 


00415 

000090 




0266 

00416 

900000 

S 2 

DBP 

0 


00417 

000900 




0267 

00420 

000 coo 

TEND 

OCT 

0,40000 


00421 

040000 




0268 

90422 

oooono 

SEND 

OCT. 

0,200 


00423 

000200 



<• 

0269 


000414 

DX 

EQU 

•414 

0270 


000416 

DY 

EQU 

DX + 2 

0271 


000420 

DZ 

EQU 

DX + 4 

0272 


000460 

LI 

EQU 

•460 

0273 


000461 

L2 

EQU 

LI + 1 

0274 


000462 

L3 

EQU 

LI +2 

0275 


000464 

RX 1 

EQU 

L 1 +4 

0276 


000465 

RX2 

EQU 

LI +5 
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DDP-5 1 6 AS SEHBLY LISTING 


0277 

000466 

FX3 

EQO 

LI ♦S 

0278 

000470 

RY1 

EOO 

L 1 +8 

0279 

000471 ' 

FY2 

EQU 

LI +9 

0280 

000472 

FY3 

EOU 

L1 + 10 

0281 

000474 

FZ1 

EQU 

L 1 ♦ 1 2 

0282 

000475 

RZ2 

EQU 

L 1 1 3 

0283 

000476 

FZ3 

EQU 

LI ♦ 1 4 

0284 00424 

125253 


END 
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